LABEL QOOOO0OCOPRINTEROO175099CC EX OBJECT/REAUSFILE SOURCEFILESSYMBUL/AFILTERSENDE OBYECT “READ e 


omnrx oO TO FF wn = 


Bata Documents/inc. 


COMMENT Lithicer eee Sete eae ee ae ee ee ee ee a ee ee ee eee anele) 
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COMMENT? THIS MATERIAL JIS PROPRIETARY TO BURROUGHS 00003010 
CORPORATION AND IS NOT TO BE REPRUOUCEDs USED 00003011 1@ 
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te] INTEGER | _-TedeKeZi % BLOCK & RECORD SIZES ALSU SCRAICHES,  O0Gi1000... _ Barer ie ret ee ee ‘8 
8 INTEGER Liedd3 000111400 . 
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BEGIN K*2s Ze#150 END ELSE BEGIN K¢53 Ze*i1O END} 00027000 a 
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BEGIN 11251058 0222150 ENDS OUTPUT TO DISK 00027200 foe eee ee ee 33 
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SAVE ARRAY | CVCO$11)3 % ULD CARD IMAGE. 00034000 ‘8 
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INFCOUSLI3 % DEFINE ENTRY TO INFOL#s8), 00042000 1 
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( INTEGER CCOS % STARTING ADDRESS UF THE CURRENT SCAN 00047000 
@: INTEGER CC3 % CURRENT ADDRESS IN CARD BUFFER. 00048000 |@ 
| INTEGER = (ESTEE TS % STARTING ADDRESS OF CARD BUFFER» CvEw)e 00049000 00 3 
4 INTEGER CED} % ENDING ADDRESS OF CARD BLFFERe 00050000 4 
@: INTEGER CST3 % STARTING ADDRESS OF CARD BUFFER. 00051060 |@ 
; eee sate INTEGER oo CST STARTING ADDRESS UF CICLO), OO 0052000 en 6 
7 INTEGER ‘Ic3 % CURRENT ADDRESS oF CIC *]. 00053000 r 
@: INTEGER DST3 %& STARTING ADDRESS UF DCIC#*]. 00054000 |@ 
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@. INTEGER NCD % CARD INDEX CF INFUTe 00057000 /@ 
na _ INTEGER NCOs} CARD INDEX OF CURKI : i DOU SB OOO. cy wildcat ot 2 
i INTEGER NCE3 % cARD INDEX OF CURRENT SCAN ENDING. 00059000 ‘e 
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(1 ae INTEGER ss RES MAX INFORINY OF ABSOLUTE RESERVED WORDSe 00067000 . ee ee ae ae 21 
22 INTEGER CFX3 % MAX INFO@INX OF CUNDITIONAL RESERVED W0S.00068000 22 
Or ARRAY XALGLO?21)3 00068100 21 @ 
i eC INTEGER _ELININES 3 % DECIMAL VALUE GF 99999999, 0 Sp tee OUI 00 0 6 ce cnn n Sle auineedetat ae ome a Ses peatlecn 4 
25 INTEGER BLKCNTS  % BLOCK COUNT. 00070000 2 
@ is. INTEGER DOLLARS % CARD INDEX AT WHICH $*=CARD FUNCTIONS, 00071000 2 @ 
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SPS INTEGER NNCsINC$ % NEW SEQUENCE NO, AND INCREAMENT. 00073000 2 
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34 REAL. AVC3 % NUe UF AVAILABLE CHRS IN CIt*¥]. 00079000 34 
re REAL BLK3 % 37ZEKO AND 5- ere 00080000 33@ 
ba REAL __ABG# 99999999", we i Sta la ore ee OO OOO UE! i500, oie Cte Se te pat ee oat 36 
7 REAL TOsTist2s % PROGRAM STARTING DATE AND TIME, 00082000 id 
@ | REAL FST»LSTS % FIRST AND LAST CHR TYPE IN EDITING. 00083000 4@ 
ii REAL ND NN NRO NES 9% COUNTS OF DELDsNEWSRETAINED AND ERRS-GOOB4000 ba 
REAL Repel % SRATCH REALS. 00085000 “0 
e BOOLEAN EOFS % END*UF=FILE ON BOTH SYMBOLIC & PATCH. 00086000 «/@ 
BOULEAN | NEWTPS % CREATION OF A NEW SYMBOLIC FILE. 00047000 42 
BOOLEAN NEWTPEDS & THERE I§ A NEWTAPE CREATED. 00088000 4 
& BOOLEAN PNCHS % PUNCH DECK REQUIRED, 00088300 4@ 
BOOLEAN | PNCHED} % THERE HAS BEEN A PUNCH DECKs 00088600 | _ 4g 
. BOULE AN RESQ3 % RESEGUENCE REQUIRED, 00089000 6 
@ BOOLEAN XRESV3 & ADD W TO RESERVEU WORDS IN XALGOLe 00089100 7 @ 
BOULEAN GENERATES & GENERATION OF THE CUKRENT STATEMENT 00090 ee A 
BOOLEAN CIVALIDS. %& CIC*) HAS VALID INFORMATION, 00091000 4s 
| oF BOOLEAN NEWCARDS & A CARU JUST READ BEFORE ANY SGANe 00092000 sf @ 
| ' BOULEAN _ NEWCD3 % rie ITEM JUST SCANNED IS 1ST ITEM-ON CRO.00093000 51 
| , BOULEAN DFINE3 & DURING PROCESS OF A "DEFINE. 00094000 5 
 @ BOOLEAN ENDCMMT$ % DURING SCANNING OF COMMENT AFTER "END", 00095000 «| @ 
| : __BOULEAN B473 % INDICATION OF GENERATING "47=", 00096000, 54 
"BOOLEAN BRK; % BLANK INDICATOR. USED IN SCANSPROGEDURE. 00097000 58 
@ | BOOLEAN RRSTPRNTS % FIRST LINE TO BE PRINTED 00098000 1@ 
BOOLEAN STRM3 % DURING PRUCCESSING OF A STREAM PROCEDURE.00099000 
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BOOLEAN SQLST3 % INCREASE 187 NEw CARD FORK NUONRESEQUENCE* 00100000 
@. BOOLEAN LSTOsLSTNeL STDS ® LISTING OF OULD» NEW & DELETED. 00101000 
ee ct DEINE: Joc at oc —CMCSEVEL7? 183% SEQUENCE NOs OF THE SYMBOLIC FlLE,..O01lU2000 
: DEF INE PNOSEV(1H]#s % SEQUENCE NO. OF THE PATCH DECKe 00103000 
@: DEF INE ENCHEV(19) #5 Z ENDING SEQ NUe OF ITEM JUST SCANNED.00104000 
so DERINE 0 UU POUSR Weds CARDSTAPE#, NTPENEWIAPERS onaosoo0.-————<—Sss 
4] FORMAT HONGO X20p,"BURROUGHS H=55C0 TG B"6500 ALGOL FILTER™» 00106000 
y da “sAceXZeL2e%EMe[OrKLoAte™ M,"/)5 00107000 
eer 0) 1, 6 eae ee eee eohe ns Shen Sek ie toes Sete ieee OoLOHOOO 
7 NUMBER OF CARDS WITH POSSIBLE ERRORS Is 160% " 00109000 
@® 7X10» 00110000 
Ig ete son eet tot. "NUMBER OF CARDS DELETEDS">» Loe"."/X10e ———gtddoca. een 
oS "TUTAL NUMBER OF CARDS IN THE PRUGRAMS "> ]lé» 00112000 
r "5 RETAINED Es 1G0%5 GENERATED!",16> 00113000 
I la atta Ad itl free peta a I A se le lel een eat eli sane ee at Nalee D 00114000. 
rr “TIME USED FOR ETCTERING! PROCESSINGS%s14, 001415000 
@« " MIN, "sT2e" SEC, ELAPSEDi"sI45" MIN, "s 00116000 
Ne oS cow ati een atte: dite. Loidde: Sinead, Oe ee Om PW. Go ee 00117000. 
16 FORMAT “OBG(13(109x1))3 00118000 
@” PRUCEDURE DLWPARRAY CAs AXL# AXHoF UUs ABs ALPHAKAME* NUMBER) 3 00119000 
Bh osc nats tua uy OM ENGI.) Cap 6 wp maieie A BW abe. pie ae Wca ce eg big Gig ely GEA a peo ah boa Wo aoa he soesesessoneg sone IN 12Q000. . 
19 : DUMP OUT THROUGH FILE (FOU) AN ONE*DIMENSIGNAL ARRAY CA) 00121000 
20 t STARTING FROM CACAXL]) TO CALAXH]) IN ALPHA (CaBsi) OR CCTAL €ABeO) 100122000 
ee 4A FORM, CALPHANAME) ANO (NUMBER) WILL BE SHOWN AS THE HEADLINE, 300123000 
be : meets = 5, Cy. PAC) = 08/25/65) wee w nnn 300124000 
e@ : Seem eee Peer eee eee erent Hoe eHereP Hort eneenneeeeeterneetssrngronesecesseet GOlZ5000 
Ae ecieenee evn ven VALVE OO 0 AXE sAXH* ABP ALPHANAME sNUMBERS = = 26000 aa 0 Ape tteec Es PACE theta en fas en ES te, Shs oe Aa 
f INTEGER AXL» AXHs ABr NUMBERS 00127000 
@ ALPHA ALPHANAMES 00128000 
i asi 3 cet dal INN oe sates na OEM ES, I ten wn sR rs ee ee etre ahd ele a OOP Z GOOG. oh 
a FILE FOu3 00130000 
i] BEGIN 00131000 
RE RE ROD ee Re SPR Na I OR a a wpa sat OOOO 0S ete 
INTEGER LeWel3 00133000 
@ BOOLEAN BOOL3 00134000 
so FORMAT TILC"RECORD MeAGsIBrx5e"("rZA0e"I")$ st oOO : 
a SWITCH FORMAT Fe( "ese eG (Xd) twee weneremerenwsel)), 00136000 
@ CXZa MMMM X2r1OCX2pNewwetemen) 3 60137000 
PST et See mee Leo A Lae en ae ee eee eRe EOE © (019 OR <0 6) 36 
LABEL Lu3 00139000 | a7 
@ : STREAM PROCBOURE OCT12(1»01»02)3 00140000 31@ 
VALUE 7 eee ge ee sp NOON MIO 00 at a pred : 
BEGIN 00142000. a0 
e SIeLOC Is S1*#SI+23 00143000 «/@ 
Cesta ctcsesincins Sy Bia see TOO hs TOUS OFe Fen ee See, Ooi44oog “3 
6CSKIP 3 DB: 00145000 “ 
e 3¢IF SB THEN OS*SET ELSE DS*RESET3 SKIP $B))3 00146000 7 4@ 
ee a 39 £ eOt+2s 00147000 . 
6(SKIP 3 DBS 00148000 “0 
@ 3CIF SB THEN Do*SET ELSE CS*RESETS SKIP S$B))3 00149000 |@ 
END OCTiz3 Ps ae ee genet ey OT BUDO Oo eet ing Dds “8 
BOOLEAN STREAM PROCEDURE SAME(A»BsN)3 00151000 ki 
& VALUE NB 00152000 . @ 
uo BEGIN sata Serre ee sha carat eee! OTSA OG Celt e ceca BS ac) 
LABEL LL 00154000 6 e 
@ SI¢Bs DI*AZ TALLY*O; 00155000 59 
eee NCIF 8 SC¥DC THEN JUMP OUT TO LL)S DOD 
TALLY#13 oe : é 00157000 | le 
@ LL SAME*TALLYS 00158000 7 50 
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STREAM PROCEDURE EDITCLs As ITs Ne AB); 00160000 
VALUE IsNsAB3 00161000 
Detail Kins hlatee Etat ages te Gk Wie ara aro a tS Nil, oe oe tks ai ee it tse et See OO PR OO 
LOCAL WeTs 00163000 
STeLUC ABs SIleSI+73 Olei; 00164000 
iE OR ONT EN le ls oS hse oll et OR eye ee, MOOT OS UO Oc. oS out af ilucnesa 
BEGIN 0016600¢ 
TALLY*#63 NCOTALLY*¢TALLY+63)3 T*TALLY3 00167000 
eee hetit tee OORT Ded DEC) DSe eI 2s ST ekg ie te OOLORO00 ss. 25 eee ce os aes 
NCOSeLIT " "3 00169000 
ecOSeL IT " | 00170000 
BP Oe a oe ait Od Oi Set eet a i ROO ee NE SEB a! ee att ae Res ee 00171000. 
3(IF SB THEN OS*SET ELSE DS*RESET$ SKIP SB) 00172000 
>) 23 00173000 
eclectic en ie ee OO OOM oe 
ENC ELSE 00175000 
BEGIN 00176000. 
TALLY 4103 NCTALLYeTALLY+63)3 TeTALLY3 coe OOITFIONOO 
SI*Loc Is O5¢2 LIT™ "3; OS*4 DEC OSe2 LIT" %; 00178000 
SIe#A} 00179000 
sicocet ns Oye oral gan ear, SNUG ed ont Jf Se CUSEL TT Te D988 SCORE a hes a 00180000 
TCOSe11 LIT * ")s DSe*2 LIT * 83 ooisiocd 
ENC3 00182000 
aS al cial eta lees NEI ns AR 2 ae eo re ee en OO SOU OY ite Sas aoe 
WRITECFOU)S OCTI@(NUMBEK*Low)3 00184000 
WRITECFOUCObBLIJ » TL s ALPHANAME sNUMBERsL ow) 3 001065000 
en teh te ee IE AB=O THEN We6é ELSE BEGIN Adeds WelQ ENDS = = = 9g186000 i i‘éiCé;Ctw 
IF CLeCAXH#AXL) UIV W + 1)31 THEN WeAXH@AXL#1L3 00187000 
FOR Ie, STEP 1 UNTIL L DO 00188000 
re Pee a GTI et he Bs oe ea ge a std ORDO Onn, 2, 
IF Iz1 THEN GO TO LL ELSE 00190000 
IF T= THEN BEGIN weAXxh@(AXLeAxLow)415GU TO LL END300191000 
Mies eS tN saeco aan Se Gin woo KF SAMECALAXLI*ALAXLeAXLe¢W]eW) THEN 092000” 
BEGIN 00193000 
IF NOT BOOL THEN © 00194000 
i ee en enero oe sone ee BEGIN WRITECFOUs SLH)S BOGLETRUE ENDS = 0 95000.—C—“‘“‘(C 
ia ENU ELSE 00196000 
BEGIN 00147000 
ee se eek leet ee A BOO THEN OOO OE ALS Fi So OOTY B0O08 nt et oe 
LL? EDITCUNCOJsALAXLJ] *AXL 9 We AB); 00199000 
IF Isl THEN WRITECFOULDBL I> iseLNC*)) ELSE 00200000 
Sabi Sec Bt cal Oh, Bll loi Ciara tates sana ceaate te NO PC Uw NERD ee Ss eet sel we ey OG¢€01000 = 
ENDS 00202000 
ENDS 00203000 
END DUMPARRAYS 00204000 
STREAM PROCEDURE ADDSS(S#A)3 00205000 
COMMENT Peo eee ate Tee eeH ee Her sent at HH aneverneeentaesertearmerenesoene reese DOAN6000 
t THIS PROCEDURE STORE THE ABSOLUTE ADDRESS OF Cay INTO CS), 200207000 
: asneesae C, PAO 11/02/66 ==e"====3 00268000 
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9 STeAs ACSI ST*#LOG as O1eS3 DS+WDS3 00211000 
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Ves eceecee nee aeeteananetnsreteeerereteretenaseserevesvenresernerevesces 300217000 
VAEUE BGs ABs BITS; 00218000 
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VALUE AC» BCONS 00269000 
BEGIN | 00270000, _ 
ABE LisLeelaeLa3 ae 00271000 
‘ SI+AS SleST+ACs Opebs OLeD1+8C3 7 00272000 
kas NCIF Sc>DC THEN JUMP OUT 1 TO L23 a 00273000, _ 
SIeSIe13s Dl¢DI-13 00274000 
IF SC<DC THEN JUMP OUT 1 TO L33 93 00275000 
_ GO TO L43 | 00276000, sss 
lat. TALLY¢13 COMPAREACTALLYs GO TO La; 00277000 
Lat. DI*LOC COMPAREAS OS*a LIT *+0000001"5 00278000 
ectheO SEND G0 MAR Base ae er 279000 2 
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| LOCAL N3 00220C00 
e DOIeLOC N3 Dl eDI*73 SI*LOC BITSs SIeSI+63 DS*CHRS 00221000 
QV _ SI*eAs SKIP AB SBs DI*Bs SKIP 3B DBS Sr rrrrrern NE22000 Aaa BN So nein 
| NC2C32C1F SB THEN DS*SET ELS&E DS*RESETS SKIP S$B))) 00223000 
@ BITSCIF SB THEN DS¢SET ELSE DS*RESETS SKIP SB)5 00224000 
: ND TRNSFBTS3 peelfne 8 aes! ee 00225000 | gee eee 
4 STREAM PROCEDURE TRNSFCHRC As Bs AS*U99CH)3 00226000 
r (s COMMENT CROC e Oe He Dee ere eres ener eHeF eee area eertHneeeseeesvenoenneeserpV0ce/Q000 
6 i TRANSFER FROM (B)» STARTING CHARACTER INDEX. (8S)» INTO CA)» STARTING#0O0228000 
1 SCHARACTER INDEX CAS)» FOR (CH) CHARACTERS, (CHS63) 400229000 
r 8 Damme e meee meee nH an ene ream eee EHH OPO Hee e Onecare enneneesneseneveess sant JUaI0000 
. VALUE AS BSe CHS RL CR eT Seema © 9-6 | te ee Oe 
10 BEGIN 00232000 
@' OI*As DIl*DI+AS$s  SleBs SleS1+BS; OS5S¢CH CHR} 00233000 
Phe tte, oe Lae at ceatesdooltc END STRNSECHR a hae ee a A023 4000 PO ee 
: STREAM PROCEDURE TRASFWDSCAsB2WD)3 00235000 
rd] - COMMENT Cen engne Perce er teaserrertressreressorcrreserereeasesseesesergse ee 00H IO000 
Wo tab TRANSFER FROM. BM" INTO "a" FOR "wO" WORDS, cC"™WwO" (21161 ¢ ERE ee ee ee ee 
8 € Sine geet av uraine sO Cs ars 4a vam oe Geers A DAE aS WO Ae Ca Oa bAGRW eae FOCe 000 
ee” VALUE WO . 00239000 
Ui Nate Permeen attra meena a Putodietts, AOE OUE NS xc i5 ss 20 stk oa Sato eka a fava a a TA a Ss a penn DOC SOOOO ee arene 
4 ~ LOCAL N3 | 00241000 
eo” DI*LOC Ns Dl*DI+/s SI*Loc WOs Sl*S1463 DS*CHR: 00242000 
is SEE ae ee OTe As STeBs Siteptest be he oe ee wee OO RAI GOO ne ao A 
: NCDS*€32 WOSs DSe32 WDS)s DSeND wDS 00244000 
@» END TRNSEWDS3 00245000 
4 STREAM PROCEDURE CHRTIRNSF(TosFeNC)S 00246000 _ ae 
bs ~ COMMENT sea S gO Bich we G.0 <UL G'e FERS LA WOR ba EEL CH CA PLE EE 0 NT OOO 
@ x : THIS PROCEDURE TRANSFERS (N) CHARACTERS FRUM (F) TO (T). BOTH CF) 200248000 
7 * AND CT) ARE CONSIDERED AS THE ABSULUTE ADDRESSES» AT THE END OF 800249000 
A STRANSFERRINGs ONLY (CT) IS UPDATED, 300250000 
 ) : weeeemen 5, C0, PAC 04/15/06 ==="e= 300251000 
ee ee See a wee eee ee ee ee ee ee ee ee ee Le 8 -> F210) 0 10 ee 
! VALUE FeNC3 00253000 
@» BEGIN | 00254000 
a De cere a 2, 2. Eee eT: Cr 10 Smee ce Ne Re PND fr8 CoN eee Oe De PE dee ee Oe se RRC Re eR TR ae Go] 5” Ss bo 10 08 0 Sean re ee A 
é SleTs DI*Lac vs USewDS3 00256000 
@ SleLOC NC3 SI*SI+O03 DI*LOC 15 DI©DI+73 OS*CHR; 00257000 
ia i faa wine ee ee be A ey sete ae salen Serene °° > 1101.90 een eee ee 
es 1¢2¢€0S¢32 CHR))3 DSe*NC CHR 00259000 
@ i JeDI3 SIeLOC Js Diets DS*WOS; 00260000 
-ENO  CKRTRNSF3 00261000 — 
~ INTEGER STREAM PROCEDURE COMPAREACA sd AC eBC aN) 3 00262000 
e COMMENT FE MART PERL TET CEERI ERPS Cog Sgr ho a Tae a ar ae 
_ =O COMPARE INFORMATION IN CA) ANU (8) STARTING FROM CHARACTER INDEX 800264000  —__ 
sCAC) AND (BC) RESPECTIVELY FOR (N) CHARACTERS» © 00265000 
® t THE VALUE OF "COMPARE"! A=B% O» A>BS 415 AcBt "1. 100266000 
e 
@ 
6 
@ 
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INTEGER PROCEDURE CCMPAREBCAsB2 AB, BB aN)3 00280000 
} COMMENT Pe ee ee OR ee ee eR a ee OO aoe ee] 8) ® 
_ UT COMPARE INFORMATION IN (a) ANU (B) STARTING FRUM CHARACTER INDEX s00282000 
’ *CAC) AND (BC) RESPECTIVELY FOR (N) BITS IN BINARY, 200283000 ' 
@): : eenmetes 5. Cy PAD 08/25/65 eee n=e=100284000 1@ 
: aa i BS .8.9..6-0 4-2. 88.6 eed eee epee seen nas Peses eset esssssetesg ese tse tases s 60-944 25002R5S000 ater aoe eae 3 
: VALUE ABsBBo Ni 00286000 ‘ 
@ |: INTEGER ABs BBeN3 00287000 ‘|@ 
Ms PRE PA es as ae, one IND Pa te ah ao Oh es a AS Ue OOOO Oita dum 6 
? BEGIN 00289000 7 
@: INTEGER LoJoTe AW, BW 00290000 |@ 
lcs Sets alee wes Sede RABE Ce wel Dei pa oie lac adsl hts a Seed tee whore casa pal nctieeetslacee ase OOM OOO cies cmgihen coke) : 
jo INTEGER STREAM PROCEDURE INTCAsAWP Ade BTS 1(1)3 00292000 
er VALUE AWs ABs BTS IU3 00293000 /@ 
bei Sara ac IN a we See AE ata cee th ae to 12 
‘OLleLOC. INTs SHIP IO OBS 00295000 13 
@ |. _ ST*AS AW(ST#S148)3 SKIP AB SB; 00296000 @ 
> vee eens tvmenue—_ _BISCIF SB THEN DS*SET ELSE DS*RESETS SKIP SB)3  # OO297000 | sah foie Ge 
6 END INTs 00298000 
er ee AWeAW + CAB DIV 48)3 ABFAB MUD 48} 00299000 1@ 
bs eee inion twee WeBW + (BR OLY 48)3 BBeBB MUD Bs R61 60 Ne] ¢ he 10116 RNC ee me eee ee oe ee eee "8 
‘ TeIF N>39 THEN 39 ELSE N3 00301000 S 
@ IF CI@INTCASAWSABe Te 48"T)) >CUCINT(BsBWeBBe Te 48"T)) 00302000 1 @ 
i Sia, Ciaran hues EPA NC MP ARE BON: 2B LG Bra x ac a or ee ie Ba a is OO et cay wy eee ee a et eee 2! 
P IF I<J THEN COMPAREBe*™1 ELSE 00304000 bi 
. Oa IF NST THEN CUMPARE@0 ELSE 00305000 21@ 
saith Lube ta BEG IN Ne eT -ABCAD+Ti BRCRBY1S GC 10 11% ENDS... 00306000 _. Pe a Me el ER TET EO A ACR 24 
P END COMPAREB: 00307000 ? 
@ STREAM PROCEDURE ZEROCAsWD)3 00308000 2 @ 
P __ COMMENT. A AO oO DOO OOOO O60 O Oe eo eto 85 oo ooo 0 60 60-09-09 9-0-0203 09000 fctahar ett ik teak stn nent netted 2 
re $ SARTING FROM CA)» SET (WD) WORDS To BE ZERQES+ (CisWus64) 300310000 28 
@ » : wemensme J, C, PAU 12/09/66 ===" ="""3(0311000 3 @ 
ie : pei aRA Re Ba aa ek 4 bk A i GROSS EEG Ob wes se ae eee NO 342000 2. i 
we VALUE wO3 00313000 1@ 
® : BEGIN : 00314000 82 
? whe deat te wets EON SPO k LIN OUCONS — SUGAR p22 Se ee so OOM ONO i pl et ce te ee 
TALLY e¢WO3 TALLY¢TALLY+63, WOeTALLY; DSeWD WHS; 00316000 
@ + END ZEROS 00317000 21 @ 
Pel STREAM PROCEDURE. LOCVRT CAs BoS To CH eI) 8 a oe pe eg ee OO ST BOO te 8 tc a 36 
R? COMMENT eeetnenete Coc cette eee reset eraser eee esereceseneereseenoreres eee IIIII0N0 37 
oe $ THIS PROCEDURE DOES INPUT ¢"yO"#1) QR OUTPUT ¢("IO"%=0) CONVERT FROM :00320000 3@ 
Bo BY INTO "A™, STARTING CHR*POSITION "ST, FOR "CH CHRS, $00321000 a eee ; fs 
° % mescetes J, Cy PAO 04/21/64 8229" 300922000 é 
@ | TECTRE PETC EEE Cee REC Cee eT ECR TEC CEE TCE CE ROR EPEC TEEPE Ca Tee ee ee ee eee) |@ 
2 VALUE _STy»CHeJU3 00324000 et 
3 BEGIN 00325000 4 
@ | | DIeAs SI*LOC 103 SI#SI+73 SKIP 5 SB} | 00326000 | 4@ 
a F $8 THEN O0O327000  — —___. 45 
BEGIN SIl«b3 SCSCISE DS«CH OCT END ELSE 00328000 ‘8 
er : BEGIN SleBs DIeDI+ST DSecH DEC ENDS 00329000 iW 
NO 0 00330000 
REAL PROCEDURE DATECTI# i 00331000 49 
@F COMMENT AOC ORUGE SRCCER ST CHE TVRELE GRO Secale Tarn re tne eas cae sd @ 
Bt "3 THIS PROCEDURE CONVER HE VALUE OF AN SY PERNAL OQATE IN 10033300 sy 
tMONTHs DAY AND YEAR, 300334000 6 
$ VALUE OF RESULT? CHR 1°42: MONTH CIN CHARACTERS). 100335000 1@ 
; CHR 5-6! YEAR (IN CHARACTERS), 100336000 tes : 
t CHR $ DAY C4N. BINARY). 00: 000 55 


: . stmmmmmm 4 Cy PAO 06/21/66 merewnw=3 00338000 : | | sl @ 


Ft h emer Pee Pee O ete esa eet He eeeere Pete Paneth esnnen Morar enenonpeneneenes ees UQaav000 
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a 6, 8, . * iy Pe - 


S © & TF & 


SO 


FSi: ui ic ai eau EN NAT ae al See er SN 5 611510 FY o 0101 5 CR EO Ce ee 


VALUE Ts 00340000 
REAL TS 00341000 
: coe E GIN a aR Ne aT a Oe ae Oe eee Ue Set era aren 01749103 ° PL RE eae ere 
INTEGER D>Ms 00343000 
LABEL LES 00344000 
cn DF De Te £4246 141 0XCT, 03626) 410%6 Te £3086)))IS31 THEN 00945000 2 
BEGIN Me"JAN."3S GU TU LE ENDS DeDe3ys 00346000 
IF OSCMEIF CMeTeCedtol+10x(Tol18t63))¢(4682]=0 THEN 00447000 
ee eee Sane aaee eae Pate linere eer tte em ntrector! © 0-1-1910 Sean eeeraeegm ne ena eae 
BEGIN Me"FEB."3 GO TO LE ENDS DeDeM3 00349000 
IF 0831 THEN BEGIN Me"MARS"3 GO TU LE ENDS DeDe314s 00350000 
beta ae a e" "3 GO TO ° . oath acineasptas ies 


IF 0$31 THEN BEGIN Me” ics Oi GQ TO LE ENOS DeD=313 00352000 
IF 0830 THEN BEGIN Me"JUNe%s GO TO LE ENDS D*D"303 003533000 
«7 " 5 : a De : 
IF 0331 THEN BEGIN Me"auGe"s GO TO LE ENDS Depw3i3 00355000 
IF 0830 THEN BEGIN Me"SEpP,"s GO TO LE ENDS DeD=303 00356000 
woe F DS34 THEN BEGIN Me"OCT,"3 GO TO LF ENDS DeDw3is 00357000 
IF 0830 THEN BEGIN Me"NOVe™S GO TO LE ENDS D*D=303 00358000 


Men"DEC, "5 00359000 
oo _--DATEDAMI6t2ui2uistr3gr iat BND errata teint eae ee ee ee ag 
END DATES 00361000 
INTEGER PROCEDURE INFOENTRYCFewWOS)> 00362000 


_eOMMENT oe a oe ee | a RaPn omen nner eaters tbe st arse nsse senders ensetonseses sooo 590 DOO 000.... id ePadeegsensy Thdeh Wierd hae di bth tere eee 


H THIS PROCEDURE ENTERS aN ENTRY INTC INFUL*e*] aND UPDATES aLL THE #:00364000 
SCUNCERNED INDEXESe "F" [5 THE ARRAY [UENTIFIER wRJCH CONTAINS "wOS" 3206365000 


PS oe dy C. “PAG 04/27/68 wseemenns3 00367000 
re batveaseanesseesseagsguesesessssessssscsnsssscinesesssncnenttessegeseys#00200000 
( sister VUE ha NP ee et aD 8M A a SE aE ae oS ea alee oes OOP OO Fe al ek Le 
i REAL WDS3 00370000 
ARRAY FCO], 00371000 
| eee area Rt wenn BEG EN 00372000 eer eas 
py INTEGER $3 00373000 
B2 IF BOOLEANCDEBUGN) THEN WRITECFOUsOBGs"INFENY™sF LO] ,WOS)3 00374000 


_COMMENT CHECK IF THE REMAINING WORDS OF THE CURRENT ROW OF INFOC*s*) OO375000 2 2 UL 


CAN NOT HOLD THIS ENTRY* START WITH A THE NEXT ROWS 00376000 
IF NFX,C40%8)4+W0S2257 THEN NFX@CNFX4256)&81£4084038I)% 00377000 
__ COMMENT STORE THE FOLLOWING INDEXES IW THIS ENTRY? | 00378000 _—syw Waa Neos iy fuse ers 

(40% A)? REL INX GF THE ADDITIONAL INFO, (ALREADY IN FCOJ). 00379000 

[33% 7]$ IMX OF STKHDL*], (SEE NOTE 326 00380000 

254 Bit REL INX OF THE PREVIOUS ENTRY» (SEE NOTE 1)56 003863000 =  § 

“Tieti3)! aps INX OF THE PREVIOUS ENTRY WITH THE SAME VALUE? OR 00382000 

THE SAME INX OF STKHOL*), (SEE NOTE 2). 00383000 

et 4 82% TOTAL UNMBER OF WORDS IN THIS ENTRY. (SEE NOTE 4), 00384000 __ 
{C 1! 337% THE TYPE OF IDENTIFIER? | 00385000 


0% RESERVED WORD UR DONT=CARE. (REGARDLESS OF "STRM"),00366000 7 
2? SUBSCRIPTED IDENTIFIER. C"STRM" SHOULD BE OFF),00387000  —__ 


4? DEFINE. | CREGARDLESS OF "STRM"),00388000 
6! SIMPLE VARIABLE+ C"STRM" SHOULD BE OFF).00389000 
LE STREAM PROCEDURE, UC WHEN MSTRM" IS OFF), 00390000 
STREAM VALUE: VARIABLE, CWHEN *STRMY ES ON), 00391000 
3% STREAM NAME VARIABLE. CPSTRM* SHOULD BE ON)» 00392000 
oe + STREAM VALUE IN LOCALE 4) C™STRM" SHOULD BE ON). 00393000 _ 
71 STREAM NAME IN LOCALE #*], C"STRM" SHOULD BE ON)*« 00394000 
| | 300395000 
ee eed FLOJ*FCOJRCNEXMHFX) C25 84018) % NOTE 1, 00396000 
QSTKHDES*(FEI) MOD 1£2523¢129358133% NOTE 2, 00397000 
. BSC3BI41S7IGWOSC 4404815 “"" & NOTES ¥ & 4, 00398000 
OMMENT: TRANSFER THE ENTRY INTO INFOCwo* seine! 00399000 = 
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TRNSFWOSCINFOCCINFOENTRY*HFX*€STKHDCSIJ*NFX) C3585)» 0040000 
NFXeC4O02BIe1LJ»tELOJ/WDS); 00401000 


OTH WORD OF THE ROW*s MOVE IT TO THE 1ST WORD OF THE NEXT ROWS 004035000 


COMMENT. IF THE NEXT AVAILABLE JNDEX OF INFOC*s*1 1S POINTER TQ THE 00402000 


IF CNFX®NFX+HDS)064028)80 ThEN NEXENFX413 00404000 
3 ______JF DEBUGN=3 THEN DUMPARRAY(FsOswOS*1eFOUs is "ENTHYS"SHEX)S = =—Ss  OOO.COCS:CtC‘“‘C‘COCOCSW 
‘ END INFOENTRY3 00406000 
@ |: PROCEDURE INFUREMOVE (START) 3 00407000 
. __ COMMENT. —- f.. 1.0 2 2.0.0 .0.9.89.9 89 © 22.08. 2 @ oe BP ae oP ote ep a 8 a ee ew we ee eee ee ee ee ee ee eer ew ene! 408000. sian eects ited ethene Ba en, 


H THIS PROCEQURE REMOVES THE ENTRIES FROM INFOC*#,*3, REMOVAL STARTS300409000 
FROM THE INFO*INDEX "START™+ AL THE CONCERNED INDEXES ARE UPDATED. 200410000 


Fete ee heehee rere eee ee Heer ahereh eee Panetnenereareresnnsseeesesenese ses s OO4LZ2000 


$ _mmoweren Je Co. PAG  O4/27/68 erermnmwnsOoosi1000 


er VALUE STARTS 00413000 
cast RE Al sare SSBB aera sh ote tee ae aac ie ete ent aos OOO OOO, tue Se Syeda So 
BEGIN | | 00415000 
@ |: REAL Rs 00416000 
es Tem LABEL LE a ants ha cM et A re etd aps Bees MOO OP OOO oes cose ie A Oe 
IF BOOLEANCDEBUGN) THEN WRITE CFOUsDBGs"INFRMV">STAR| sHF XeNFX)S 00418000 
e” IF HFX<START THEN GO TO LE3 00419000 
eae eee eee} cat POET Ses erage aE eee RE jae h cone OOO SOOO: ee. eee A _—— 
STKHDL (PO INFOLHFX of 3585 ]eHFX 140881913), C33I7II6 00421000 
e PeC12t13) UNTIL (CHEXeHFXeP, (25183)<STARTS 00422000 
IE UNEX#HEX + INGOLHEX.ESSIS TS HEXeCGOSBIO1),(498)), 00423000 
L4C?8]=U0 THEN NFX*NFX413 00424000 
@ Let 00425000 
IF BOOLEANCDEBUGN) THEN WRITECFOU,OBG,"INFRVM"» NSTARTS",START,»"HFy 3%,» 00426000 et ee = es Oe ee eee 
HE XeYNFX SMsNFXK)3 00427000 
@: IF DEBUGN#3 THEN DUMPARRAY(CSTKHD? 0» 1249 F UUe Us MSTKHDS "PO HFX 3 00428000 
___IF DEBUGN=3 THEN FOR STARTeo STEP 2 UNTIL NFXe09925) 00 _ god2g9n00 ee We TED 
DUMPARRAYCINFOCSTARTs «J 909 2559FQUUsl»"INFU t"»START)3 00430000 
e END3 COMMENT 00431000 
neers eerranents 1-5 _END INFOREMOVES Xe 00 83200 Oi esp nee Kitcing hee ete ae ee 
BOOLEAN PROCEDURE SCANCTYP)3 VALUE TYP INTEGER TYP3. FORWARDS 00433000 
e BOOLEAN PROCEDURE INPUT; 00434000 
nut COMMENT 964 pin 5% bebe ae Oe bea ee bp Oe 88 Os 65 84 e oo oe ea ae ee ae a ee wee pees gO OFSO000 ny ee pose ee a ee 
2 THIS PROCEDURE READS THE SYMGULIC FILE AND TRE PATCH CARD DECK INTO 200436000 
@ tCVECey~ ACCORDING TQ THEIR NEAT SEQUENCE NUsy IT READS A CARD AT A 300437000 
| aera, TIME. ee A Rene een ee ee Ne ae ee Oe eR 200438000. oe 
a7 t VALUE OF RESULT’ TRUE: THE END OF BOTH FILESs 700439000 
@ » : omermmee 5, Cy PAO 04/01/68 9 ==9"="==400440000 
Foro rerrerrereceseonrereenvetoreseorteeesesssoerteseveovveesovervoese ess OO441000 
BEGIN . . j 00442000 
@ |: BOOLEAN STREAM PROCEDURE DOLLARSIGNCC)s % CHECK FOR pOLL AR SIGN CaRDe 00443000 
2 VALUE _ C3 | 00444000 
3 BEGIN 00445000 
@ | . Slets 00446000 
er leer s-ret eee aR: Ee YF Sas" THEN BEGIN TALLYe43 DOLLARSIGNe+TALLY ENDS 00447000 
END OCLLARSIGNS 00448000 
er PRUCEDURE OOLLARCARD$ % PRUCCESS A DOLLAR SIGN CARD. 00449000 
| BEGIN 00450000 
STREAM PROCEDURE eae 00451000 
@r. be VALUE | 00452000 
sy] seein’ a 00453000 _ 
oof Stecs SleSie73 plevi TALLY+8} 00454000 
7CIF SC#" " THEN JUMP GUTS 00455000 
STESITLS TALLY*TALLY 4633 DS*LIT™ "93 00456000 
SleC3  CeTALLYS OSC CHR3 st 00457000 
ENO vVOro3 | | 00458000 
REA Peds en ae 00459000 
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LABEL Ldel2rL sel dol sel Sool S6eLoeL7aL Bol Sal LoLlLE3s 00460000 

COMMENT STORE AWAY TRE CURRENT SCAN ANC PREPARE FOR SCANNING THE DULLAROO461000 
ee eG GN CARDZ faces Meh sihietriabs, dt iio acai totter OO: Sa Des coco at tn obese a IAS 
1 STRLI+LOF 41> YLIGREALCOFINE D3 00463000 
2 STRCI» 27¢REALCGENERATE)3 00464000 
its Aken tees voeeow GT RO Le JIOREALCNENCARD) 3S ree sha Aalee 
: STRUI» 4)J¢IF RES@ THEN 3 ELSE OF 00466000 
. STRUIs 6]eNCUs 00467000 
y ie ha ht aes get oN tot OR Le de | REE ae IESE ee Sree 00468000 
; STRCI» B8J+NCO; 00469000 
ale STRE Is 9IJeNCR3 00470000 
‘ fai whsge deen erate tt ones t oo ce ee PR LPO ON TP, ti a eh hte ei tt OO POO Ose 5 nn Se 
ie STRCIsitlersts 00472000 
M1 STRUEI»42)*LSTs 00473000 
Fe cecil ae BE ehh ae St ee J]+REALCBEK a eee a nc es ee Rea QO4/74000 
Ng STRE Is 14) ¢NCES 00475000 
14 TRNSFWDOSCSTROE Io lf Je EVL0)217)3 00476000 


TRNSFWOSCSTRE Ts 36)eEVEC19)-2)8 2 TT OOO 


48 BFINE*BOOLEANC2)3 % STOP SWITCH IN SCAN FUR $=°CARDe 00478000 
” GENERATE ©NEWCARD*BBKeFALSES 00479000 
TOS hes eos ences RES@*TRUES cCecsT; 000. — 
na IF SCANC1) THEN GU TO LL3 00481000 
ola IF NXT,C42:61]42 THEN GO TO LL 00482000 
Yoo COMMENT. CHECK FOR vind CARD AND SKIP BUTH PATCH DECK AND OLD FILES 00483000. ..——ss—i«w«aiak 
: IF NXT,C3626)4"V" THEN GU TO L953 00484000 
IF SCANC5) THEN 60 TO LL} 00485000 
: IF NCR#4 THEN GO TO LL wi eins ia Ma OOH BO OOs 2c ee ae eee? 
IF EVCO].C1Bt2a]Z"VOID" THEN GO TO LL3 004467000 
VOIDCACTLOJ+CC)3 00468000 
tere Peete WD CR ACH ONO 1 DUC d ya oa pe ot cet et OW DOO Oar cao tee ce eB 
TRNSFWDSCPNUsPACH(9) 91)3 00440000 
IF COMPAREACPNO*®ACTLOJ20%028)<0 THEN 00491000 
7 Se ee BEGIN READCPACH) + GO-TO (1 EAU ELSE GU TUL Ss 2. OOSY2Z000 ee oe 
L23 PNO+ABOs 00493000 
2 L33 IF COMPAREACCNO*INV2020s8)40 THEN 00494000 
; eet ___IF COMPAREACCNO*ACT(CO]+00028)<0 THEN = 495000 | ee 
BEGIN 00496000 
5 READ(CARD)3 READCCARDENOJIELL4]3 00447000 
: <M eae co  TRNSFWOSCONO*CARDC9)2193 GU TO LSS 4S DORI B O00: Ox 91 g's tas tee ye oe 
y La: CNOeAB9S 00499000 
ENDS GO TO LLB 00500000 
- COMMENT THIS 18 NOT A VOIO CARD» SCAN ITS CC SOL OOD 
L538 IF SCANC5) THEN GO TO LL 00502000 
LIF NCRZ4 THEN GO TO Ls 00503000 
BA eee eae ae seienaes JeEVLO 324 "TH : _ 
IF COMPAREACCNO?A89209098)%0 THEN 00505000 
BEGIN CNO+INVS GO TO L56 END ELSE GO TO L563 00306000 
= dese 7 gn " _O7OOO ULL 
IF SOMPANEACEHEAINWeQ?OL0)* 0 THEN. 00508000 
BEG 00549000 
ph os eee READCCARDINGIDLLSSUS— 00510000 
TRNSFWOSC(CNOSCARD(9)01)3 GU TO L563 00511000 
L55t CNO+AB93 00512000 
estes cae: NDS 7 005 ae 
L56t DOLLAR*NCD3 ZERUCACTL1395)3 00514000 
XRESV « FALSES 00514100 
ee eee IF BOOLEANCSTREI4))THEN ACTLOJ*ANO+(ACTE7J*INC) ELS£00515000 se wide : 
| BEGIN IOQCVRTCACTL6]»ENOs09804)3 00516000 
IF ACTLOI<SCACTLZ 30) THEN ACTLO] «03 00517000 
Fee TIRE 2. | SRE in eee ae aM ee TD _ 00518000 


L6t IF NXT.C4286142 THEN GO TO LLS 00519000 
@ IF NXT.C3626)4"L" THEN GO TO L7s 00520000 
Sh aa hg test ay lhe PSO ANOS) THEN GUSTO NEG foe en eee ae ets of OOS PY OOO: eect erate teach meet ees 

IF NCR#4 THEN 00522000 
@:: IF EVCO].CL8t24JA"LIST" THEN GO TO LL ELSE 00523000 1@ 

BEGIN ACTELJ¢ACTI 2] eACTEalets GO TU L6 ENDS sp 2uoaa | PT aE eee 3 

‘ IF NCR#5 THEN GU TO Lhe 00525006 ‘ 
@;: IF CJ*EVCO}«<£18330))2"LISTO" THEN 00526000 |@ 

. oa nided bls ce edt oc HOG TN WOT TA ely. 2Gal TUG NG yon aot 8 ee oe eh OU ERO OU de eee ee cet oe 6 

7 TF Je8"LISTG" THEN 00528000 7 
@: BEGIN ACTL2]¢13 GO TO L6 ENDS 00529000 , |@ 

; fies a Ota AO ne a A NS Sel oh ee os oe bee eee a OO BO O06 om. oo le Siac oe, ° 

a BEGIN ACTL3le1s GU TO Lo END# GO TO LLB 00531000 10 
er L73 IF NXT,03626) = "X" THEN 00532000 /@ 

2 ee ee ere eT: (2% |, CE a eee aes ; ph oie s HOODOO BOs Ect cit ct seen an ee a ot ee 2 

| IF SCAN(5) THEN GO TO LL: 00532030 | 13 
@ |. IF NCR # 5 THEN’GO TO LL3 00532040 |@ 

3 facet = _._IF_EV£01,028230) # "XRESV" THEN GO TOLLS 00532050 = Ns 

16 XRESV « TRUES 00532060 16 
er IF NXT,£4236] 4 2 THEN GO 10 LL3 00532070 |@ 

rs ee ENE Ee een le nie mE xc POOSS SOROS See Acct cs 18 

9 IF NX1e(3686) = "N® THEN 00532900 19 
@» BEGIN ie 00533000 1 @ 

' I SCANCS) THEN GO TO ELLs HNO 21 

p2 TF NCR#3 THEN GO TO LL 00535000 ; 
@» IF EVCO].CLO#1622"NEW" THEN GO TO LES 00536000 21@ 

een tn cannes LE NXTE QR OTM ZOEM2S6] THEN GO TOL) OND. eeeseai‘(‘“ ié‘“C;isCw™OOle 

IF SCANC5) THEN GO TO LL3 005 38000 2 
@ IF EVCOV.C1Bt24Ie"TAPE™ THEN GO TO LL3 00539000 2 @ 


fal’ IF NXT.C4zt6)4%2 THEN GU TO LL} 00541000 
'@ ENDS 00542000 
ane cee nee NAT EOF O TEMP" THEN Bemen (0 0-k VL 6:0 ane 
: BEGIN 00542200 
s®@ IF SCANC5) THEN GO TO LL3 00542300 
P pi Olid ed eae ee NCRSS HEN GOTO Ego See tea 00542400 
IF EvlOlel16%30J#"FUNCH” THEN GO TO LL 00542500 
@ ACTCA4IJeACTL4] +23 00542600 
; Se waa TF NKT  F4esojee THEN GO TO LLS 00542700 (sears te 
a 00542800 = 
@ » IF NXT,C3626)4"S" THEN GO TO LLG 00543000 a@ 
ec a ee PS CANCS). THEN. GO TORE? 00544000 2 
IF NCR#3 THEN GO TO LL3 00545000 “9 
©@ IF EVCO),C18i16)4"SEG" THEN GO TO LL3 00546000 «|@ 
vee ACTOS Jel UU BOOLEANCSTREI44)) THEN STREI*4Je43 00547000 - 
| IF NXT,0£42%6]40 THEN GO TO Lae | 00548000 4 
@ IF SCANCO) THEN GO TO LL3 00549000 4@ 
ae ACTLO)PEVEOJ+39I1F NCR>8& THE SE NCR 5500 _— 4 
ACTLOJ+"ACTLOI}3 00551000 ‘a 
J La IF NXT#48%+"( 3614286) THEN GO TO LL3 00552000 ahd 
AN N GU TO LL; 00353000 g 
TF NXT,04286920: THEN GO TO LLB 00554000 4s 
di “IF SCANCO) THEN go 10 Lbs . 00555000 @ 
' : 5 al : . 51 
COMMENT RESTORE THE CRIGINAL SCAN ane READ THE NEXT PATCH CTE 00557000 5 
@ |: LL} DFINE  *BOOLEANCSTRLJs13)3 00558000 «| @ 
2 GENERATE*BOOLEAN(STREIs2])3 00559000, ia 
ae BEMEARY eBOOUEANCSTRETs 3195 00560000 56 
Or RESO 7 ROOLEANC TRET+4I93 00561000 | @ 
NED*STRUL? 618 ae 00562000 ! 
@ f 
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@ 
CCOeSTRE I» 7)3 00563000 
e@ NCO*¢STREI» 814 00564000 
ce eee a NOROSTRE Ts GIs Siac iat ia tpanen nana Gta cethe eas en cw SO Ue a0 0 as Bhasecnd! 
1 NXTeSTREIe10)3 00566000 
@? FSTeSTRE 191124 00567000 
3 ESTOSTRE LY 1 on = 00568000. i 
4 BEK+¢BOOLEANCSTRO1213))3 00269000 
@ |: NCECSTRE T1493 00570000 
6 ee TRNSFWOSCEVEOIT>STROEI917)9,17)3 SOO 71000 0. fs et 
7 TRNSFWOS(EVE19]*°STRE1*36)01)3 00572000 
ee: READCPACH(INOJ)IEL9I3 00573000 
; TRIS FW DSC PNOOPACH(9)21)5 GO TO LES | ae Nee te Sa 
10 L93 PNOFAB9S 00575000 
@. LE’ ENO DOLLARCARD3 00576000 
r REAL LS eet eae at oo577000, 
hs LABEL LOrLlaldsLadeL ae 4oLles 00578000 
@ LO? IF I*COMPAREACPNO*CNO*02028)<0 THEN 00579000 
4 ees tf COMPAREACPNO2A8990200g)50 THEN GO TO 423 ELSE  OoS8Q000 
! Lis BEGIN %& READ FRUM THE PATCh UECKs 00581000 
Te READCPACHs9sCvl¥J])s CvloleInvas[4524533]3 00582000 
a = ow TRNSFWOSCOVELII*PNO2 45 ot Cae chee OO OI OO css a ee patie at, 
| IF DOLLARSIGNCCST) THEN %& CHECK FOR S*CARDs 00584000 
r BEGIN DOLLARCARDs GO TO LO END; 00585000 
siren tte ths oe, Seog = RE ADCPACHINO TICE D3. onc ce a OOF BB OOO ie, he Sa 
TRNSFWDSCPNOSPACH(9)e1)3 GU TO LES 00587000 
@ L2t PNO#A89s GO TL LES 00588000 
dope ce ake paths tag lige sx tRONN Sct ect Mes ses et it cape hoe oh tN tags Meee hs tant aaa een OU EO OOO one 2 J poheceose 
IF 150 THEN 00590000 
e@ IF COMPAREACCNO*A89202026)80 THEN 00591000 
eee tem oe _ BEGIN 4% ENO OF BOTH FILES, 2 DG A00O 
CLOUSECCARDsHELEASE)$ CLOUSECPACHSRELEASE)3 00593000 
r INPUT*TRUES GO TO LES 00594000 
BEGIN % REPLACEMENT FROM PATCH DECK, 00596000 
@ READCCARD)$ READCCARD(NO))CL3)3 00597000 
oe  TRNSFWOS CONG sCARDC9),103 GO TOLD OOS 9 BOOO cee 
L3t CNO*#AB9s GO TO L13 00399000 
@ EADS 00600000 
in rellnscl Sete Doe Miia ide gata ee READE ROM TRE SY MBOLTC FTC he 88 ONC U TOO a. ie a 
READCCARBs 9sCVE*#I23 CVEGIEINVS 00602000 
@ TRNSFWDSCCVLI1)9CNO01)3 00603000 
, 3 
d TRNSFWDSCCNO*CARD(9)91)3 GO TU LES 00605000 
@ | Lat CNO*ARO3 00606000 
Ht LE? END PUTS sae NOOO 7000 aes 
la PROCEDURE QUTPUTCADS 00608000 
@ COMMENT CREO KEHOE OOOH OEE HR OME went enenove or eae ab ae va Cen 
_- t THIS PROCEDURE TAKES CARE OF E NG AND QUTPUT a CARD IMAGE OF ANY 100630000  —s_—> 
KIND» NEW» OLD» OR CLD DELETED, 300611000 
@ ‘ meeenten 5, C, PAD 04/28/68 neste sen 100812000 
Sateseceveoe * ® o Soeseeoeseroreseos fo 
ARRAY ey ooetaoge 
@ 00615000 
STREAM PROCED fee NPRNT EDTCPeC)2 00616000 
BEGIN 00617000 
@ LABEL Lis 00618000 
Pe PS SleC3 USH9 WOSS DSeH LIT 00619000 es 
SleS1+73 SKIP 5 SBF 00620000 
@ IF S68 THEN | 00621000 
SS " OE " sl" SE Q0e22000 aL ee ee Ree 
@ 


BEGIN [S¢8 ChRs SleS1*9 ENDS 00623000 
SKIP 3 SBS USeLIT" 3 00624000 q 
mn nene cs oenn LE SB THEN DSELDIMRY ELSE 0 nez5ogo. = Leet 
BEGIN SKIP SB} 00626000 1 
IF SB THEW 00627000 1@ 
BEGIN Bee pe ee OOO ZAONO ... 0/8 SB aD es Saath Be ee ss 3 
DSe11 LIT" GENERATED"; Si*Si-2} GO TO Lid 00629000 ‘ 
END ELSE DS*LIT"T"; 00630000 |@ 
soe nee END  OS¢2 LIT" "5 S1*S14+85 DS48 CHR STeSt-483 = 00631000 i ee a 6 
Lit DSe4 LIT" "3 00632000 3 ? 
| IF SC3"1" THEN Bc vS62 RESET# USe2 SETS DS*2 RESET) 00633000 /@ 
RS ae See he ee ~— ELSE OS*8 LIT" "3 ose LIT omg nb awoog . 8 
ng END PRATEDTS 00635000 1d 
INTEGER PTs 00636000 @ 
LABEL 2elE3 Sloan fp 
IF BOOLEANCAL9}) THEN 00638000 ng 
BEGIN % DELETED CARD IMAGE. 00639000 @ 
ee ND OND ELS E COUNT, 0 OOOO 15 
IF LSTO THEN GU TO Li; 00641000 te 
IF AC91eC36%6)40 THEN 00642009 \@ 
8 pees Ar So A A oh St ot ee BE GEN ne Be tt coed Prmar01 0 1 ~F_5t 1 05 01 © sae veg Ou nee ea Se Me 
ie IF FRSTPRNT THEN 00644000 i 
@» BEGIN FRSTPRNT#FALSES 00645000 oy @ 
' ee ie ne ie eaten ee - "ELSE. ss gn 64An00 Se elie eS at ind nate ina ac iets ee a 24 
fa BEGIN IF T>12 THEN TeT=125 Pep END; 00647000 2 
@ » WRITE CFOUCUBLI>HONG*TO.LOt24)2TO,[ 4286] 00648000 21@ 
en on en OLE ee Te(T1 MOD 3600) DIV 60.P);  a06e49ng0. tt ae rene eae ae a er ee cert 24 
cal ENDS 00650000 . 
@ PRNTEDT(FOUCO)2A(0])3 RELEASECF OU); 00651000 | 2 @ 
= ee eee iin BNE tee SEES Ener eEEEEEEEEEIIEOSII «YY = YoY» 2 
2.7 GO TO LES 00653000 
2 @ F ENDS 00654000 
hl “BEGIN pineuwestncs LOCVRTCAL1O}+NNOs0sB,0) END} 00656000 
r@» IF BOUOLEAN(CAC91¢(4582]) THEN 00657000 
yn REGIN & GENERATED rED CARD IMaGEs 0 0658000 ts 
NNENN+1$ 9% NEw GENERATED CARD COUNT. 00659000 
@ IF AC91¢£36%6]40 THEN 00660000 3@ 
ps Stns sc nonnnnenn BEGIN NE@NE+]3 % ERROR COUNT, === 00 a en ee ee a ee ee ee 
d - GO TO La; 00662000 a 
@ | END ELSE , 00663000 4@ 
Pe eat ett Cate a os sh cece FS TN THEN GO TO Les 00664000 a 3 
fo ENC ELSE 00665000 40 
@ | BEGIN % OLD RETAINED CARD IMAGE, 00666000 +|@ 
; ee ae ee NR¢NR+13 % OULU RETAINED CARD COUNT 00667000 ee eee a2 
9 IF NOT RES@ THEN TRNS SFMOSCALLOTACIII9 193 00668000 4 a } a 
@ | IF AL91963626]40 THEN 90669000 cS | | 4@ 
‘ ee eT BEGIN NE*NE+13 & ERROR COUNT, == 670000 Rae etek | 4 
Lei IF FRSTPRNT THEN 00671000 ‘6 
BEGIN FRSTPRNT¢FALSES 00672000 +1 @] 
- F (T+T1 DIV 3600)<12 THEN Pe"a™ ELSE 00673000, ie 
BEGIN IF Tal2 THEN TeT=123 Pe*p* END; 00874000 4s 
WRITECFOUCOBL I »HONG# TO .C6824)2T0,C4286)2 00675000 a s1 @ 
nae TO FIO EL ADA TACTL MOD) 3600) DIV 60eP); 00676000) ae si 
ENDS 00677000 5 
PRNTEDTCFUUCO)sAL0))3 RELEASECFOU)S 00678000 «| @ 
ae ___END ELSE 00679000, , 
IF LSTO THEN GO 70 ‘as 00660000 : — 
ENDS 00681000 aie | oes {@ 
IF NEWTP THEN ae 00682000 ei eee eae 3 5 
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@ | @ 
| BEGIN NEWTPEDeTRUES 00663000 
@ TRNSEFWOSCALI) saliOletoa3 WHITECNTPe LOsAL*))3 00684000 @ 
\ Fake ct cat gta aloe acl me OP cia st tei OS A a hale ee oe OOO BS OOOO ee x, Forno ta 
1 IF PNCH THEN 00685100 
@ :: BEGIN PNCHED+TRUES 00685200 21@ 
3 os at Sn ee TP as Salt! IF NEWTP THEN ELSE TRNSFWOSCAL9IJ*AL10J91)3 = 00685300 | - 3 
4 WRITE CPUNCH#® 102AC#))3 00685400 4 
e: ENDS 00685500 |@ 
6 ee nee Sf ae : So Seas A IO BONO Oe ic ds 6 
a PROCEDURE . OUTPUTNEWCCN)S : 00687000 7 
@ 8 COMMENT See e ene et eee rcersaccsaserereresateresncerescreereveccscssoesves 00088000 1@ 
8 a THIS PROCEDI _IMAGES FROM CBi*,e) a eee | 
no TU THE IMAGE WHICH FAS THE CARD INDEX NUMBER “CN, 300690000 10 
@' : wrememen J, 6, FAQ 04/28/68 9 ======"100691000 "@ 
2 sais Sit AB ge. cm) ARP POO maa meeenpeaatasese sess Panss senses teeeanssenasenesnge npg es OUO9Z006 | Ae tat tncaint teeta a pin = 2 
a VALUE CNS 00693000 iM 
REAL CNS 00694000 1@ 
eR BORN cies Aeneas See at en Viasat pean see o0osso0gG.. i shi oe Fein tes 18 
REAL Le deNaSoXs 00696006 i 
LABEL LislL2sl3sL4eLSeLks 00647000 "@ 
3 LF. CBX<O THEN GO To Leg OO... ESI Soe tas 18 
IF (N@CBLI¢J#0,11])>CN THEN GU TO LES 00699000 i 
IF NOT RES@ THEN LOCVRT(S»CBC1»1G]»09801)3 GO TO L1400700000 Lo @ 
DO BEGIN Rk Oe ne Ae ve OOTOFOOG eee 21 
IF CBLI»11]2N THEN 00702000 29 
REGIN 00703000 21@ 
awe FE NOT RESO THEN LOCVRICXeCHC lo sulede Bel )s = cov ouooo. Sithies Shae Gants Sree a 26 
GO TO IF ImJ+REALCSQ1ST)=1 THEN L2 ELSE 143 00705000 é 
END3 60706000 21@ 
END UNTIL Clelet)>caxs — oo7g7o000.——i‘i! 2 
IF I[°J+REALCSG1STJ=1 THEN 00748000 2s 
L2s BEGIN N€QO$ GO TO LS END; 00709000 1@ 
ee LF ARD THEN 10 Li1J].098 O0o7}0000 ———ss 30 
IF NeCOMPAREA(PNO*CNO*000s8)<0 THEN GO TU L3 ELSE 00711000 a1 
IF N20 THEN IOCVRTCX*CNO>0s8-1) ELSE. 00712000 al@ 
sumer, _IF _COMPAREA(PNO2A8920*028)#40 THEN _ 00713000 lesa ace eM ie ees ene igs een ere ee 
U3! ICCVRT(X»PNO* 0801) ELSE X*ELTNINES3 00714000 a 
Lat NeCX*S) DIV Cl*J+REALCSQ1ST))4 0071500C 3@ 
ee ee es eee DF OSQUST THEN SQUSTeFALSE ELSE GO TO LSs 00716000 Se ee ee ame stPacean to) 36 
7 00 BEGIN 00717000 37 
Or IF NOT RES@ THEN 00718000 a1@ 
pS Bee oes totes es IN VN la hase te OOOO ed Sih las nsacbel ecto Seni eee S 
GEGIN S€#S+#Ns ICCVRTC(CCHLUs10)9S702620) ENDS 00720000 ‘9 
@ | L53 CUTPUTCCBLJs*])3 00721000 |@ 
io eae ENO UNTIL Cyedtd ets pmeets 0 0 2-2-4 0) © © eae a 
IF I>CBX THEN CBXe*1 ELSE. 00723000 4 
IF N©CBLIe11)SCN THEN: 00724000 a@ 
BEGIN IF NOT RES@ THEN Sex3 GU tg L1 END ELSE 00725000, 4 
«BEGIN. Je=43 00726000 9 
N0 TRNSFWOS(CBLYeu+1s0)»CBL1901912) 00727000 1 @ 
UNTIL Chel+1)>Cuxs  Coxeyi 00728000 es a8 
ENO 00729000 4s 
IF DOLLARSCN THEN 00730000 sd @ 
LSTO*BGOLEANCACTIL1))3 007432000 : 
OO» LSTNeBUOLEANCACTE21)3 00733000 sA@® 
BA LSTO+BOOLEANCACT(33)3 00734000 54 
55 PNCH*(NEWTP*BOQLEANCACTL4]))eL4681j3_ 00735000 5 
@ | IF RESQ*BOOLEANCACTES)) THEN 00736000 {@ 
e : LN NC+ACTL? 00737000 Sy 
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NNOCIF BOULEANCACTLOJ.C1°1)) THEN @ACTLCOJ*ING 00738000 

ELSE ACT(6)3 00739000 
Nr ee EG ABE nbd, indy, . Sevipdite eens a NR cect la acct eae oR ND tn Nd OT gene th Gis Mihi cata ni Se urea wayne MOT WO OUI ctonacise, 6 

T DOLLAR*BLK3 00741060 

| ENDS . 00742000 

al ee ate ot ABEND AMET PT Re WB wc ct gn lh he ad a ce lett fe cee I ale ie OL A OO: 

PRUCEDURE STARTGEWS 00744000 


4 
7 COMMENT re re re ee ee ee rr re rr a a rn On OW A> HOT O16) 

9 he ee DADS PROCEDURE STARTS THE GENEKATIAG PRUCESS UN The caRD "NCO" aT 300746000... 
2 ‘THE ADORESS "CCO"™,. THE GENERATING PROCESS WILL BE TERMINATED IN TRE $00747000 

8 SSCAN@=PROCEDURE AT THE END OF THE CARD» IF NOTRING 1S CONTINUED TO THE :00748000 

. eS ce SOLE ICE BP BR Gi etl te a a eis hes stole Pee 1S oe Oe 8 SL PEO ONE oc 

ba : womesmee 5. 6, FAL 04/11/68 == "==="300750000 


ae rer a ee ae re ee 0 a OL OW Ato OT Ore 


[op anne asec LN se Batter lien a a ct ee a oh calle Ae OD OI 


7 REAL l3 00753000 
LABEL Lisl&s 00754000 
Ve ee On ee ee ee DE OUTNZNCO THEN GO TO Les TT SHOULD NEVER HAaPPEN,OO755000 
; IF NvOSNCOre THEN 0075000¥u 
Mm DEGIN PFCE9SI].C47%1)¢13 PClLeielavtilei; CUC7 37002 
Pees SONS LA toh tin, gue vara detgn tne cise EI Ad NO te eee a Ret ole oe oe ac a a OE OOO, 
i]. TRNSFHOSCACUJsCVECC]st2)3 00725900 
a TRNSFADSCCOVLOJSPPCLO},12)% Gu TC LAs OC7é6LOaL 
ath rh ate hea ereligs shiva eth Acc ly NO aa lt, al aden feta t alin a tant dante wmeae ao dntes athe het OOP ENO OCs 
22 TF ANCOSENCDRW"1L TREA Cufo2edcte 
a3 BEGIN PCC9J.bLa7iijeys CILissencdny; OU7o30cG 
ON St ines eee ists jtegdegte tone ERNE WD CAL Oe ONTO )942 35 28 ee eeu DOLEHOOO 
25 TRNSFWOSCCVLOJ*PCLOJ.12)3 00765000 


Lit 1CeIST3 00766000 
tne mentee te muna oe CHRIRNSFCICoCSTo1€(CC0.033315 1] @CST)x84+CC0.63023))3 colo’ agno. 
CIL9T*28CVL9IL 36% 3056); 00768000 
[F REALCRESQ@)41 THEN TRNSFWOSCCILICI4CVLI1J01)3 00769000 
sts fis Tact ne any gu besicig ieee ee ce) ERNE WO OCCY COTA DOS eS oe Se he Rees S10 AE a0 6) 010 anne eon ee Ae RO eh et ane a Ie Ee a 
IF NOT NEWCARD THEN CVC9].C47%81J)¢13 00771000 . 31 
END ELSE 00772000 


= ~ 3 
> 


tee ct ru were oe terenmcBEGIN CVEOTCM7oi jets TCe*eISTS Cilfisdencos = 00773000 
CHRTRNSFCICeCSTeT eC CCuelC 33: 15]*CST)x8+CCOe.l 30833) 00774000 
@ » CIL9I*2RCVL9YIL3O% 3626); 00775000 1@ 


Pee ae ee earner enamel REAL CRE SWI AA THEN THNSFWOSCCICLOJ*CVELLI+103 90776000 
ENDS 00777000 
LST#4$ AVC#7A2"1s CIVALID]ETRUES 00778000 

cg EAE ee oot een A ee ee ee SOOT O00 2s 

LE® END STARTGENS 00730000 
PRUCEQDURE ECITINGCGPsNC)5 00781000 
COMMENT seseos, Soe eeooeste ates eaataerte Fe eeM ever eee eFeeeeer Peete teneeennee 200782000 
: THIS PROCEDURE DOES EDITING JOB INTO THE GENERATED CARO IMAGE, “OP"300783000 
TINDICATES THE TYPE OF EDITING OPERATIONS! 100784000 

——$..OP 801 SET NC" NUMBER OF BLANKSe (00000000000 UU 00785000 

OP=13 TRANSFER "NC" NUMBER OF CHARACTERS, £00786000 

OPz2: MAKE A STRING WHICH HAS “"NC™ NUMBER OF CHARACTERS EXCLUDING *00787000 

Perec 1h cee 12 9 0 2 eee 200788000 

: eee Sy Oe RAO 03/27/68 9 semmn==" 300789000 


0 ook WO SR OS 84ND ORS 66S OSM OU EA O awe SOW OSS Ae Oars peewee ee COT P0000 
__VALUE Pe NCS ee ile er ee oo79100g0 
REAL UP,NCS 00792000 
BEGIN 00793000 
STREAM PROCEDURE  EDT(T»FeL STs OPrnC)3 oe DO NO a fa a as 
VALUE Fe OPeNG3 00795000 
BEGIN: 00796000 
OCAL |i meres: team 00797000 


i 
: 
: 
: 
: 
: 


] 
LABEL L13 oo7¥B00C 
SleTs DLeLOC 13 USenuUS 3 Ulels 00799000 e 
: be ascites ionic ASTOR OR AUP SP SUR ee dee oe eh OO BUN00 0, eee eased: 
IF So THEN OS*LIT"™ "3 S]e#S1+6;3 008010006 : 
IF SC="1" THEN 00802006 10 
BEGIN % TRANSFER CHARACTERS,  —ss 0809000 ee 3 
SI*F3 OS#nC CHRS NC#DIS GO08U400U 4 
DI*LST? OSe7 LIT"QG00"5 008u000 1@ 
sey Tichwtaciusttcsasn tenet STP NC pS POST SIS en a DOB UONN Go eae et 6 
IF SC>"9" THEN USeLIT"4" ELSE 00807000 7 
IF Sc2"O" THEN DSeLIT"O" ELSE 00808000 |@ 
I SCEALPHA THEN OSeLyT"2" ELSE OSeLIT™4"s =00809000 . 
END ELSE 00810000 ro 
IF SC="O" THEN 00611000 1@ 
x _ GEGIN %@ SET BLANKS, oY aga ees er Be 00812000 .. Se cst Rr ee ee hee 7 
KCCOS*LIT" ")3 Ste SI*LUC NC# SLesl+6; 00813000 ts 
IF SC#"0" THEN 00814000 4@ 
_RPEGIN leds Ole_nc Fs Ol*eO1+73 BS*CHRS oo8i5od0 5 eet 2 Ch Ne tur oa, Stel AY See 
Olels FC2¢C09¢32 LIT" 799 00816000 ie 
ENUd: Gu To. Lig 008647000 @ 
Ps ote 3s ae eit escapism sean ain on OOH OOO ene ee oe reer eee 
BEGIN &% TRANSFER A STRIAGs 00619000 : 
CSeL TMM, SpeFs CSENC CHRS DSeLITMNN; 00820000 1 @ 
ELF eh se LSTS OSe7? LITMOuUOG"s OSeLIT4a|Z cee Q82@1000 20 ow. BA ra aa eo a i ee ae a 
ENDS 00822000 
SLeLOC NC3 DLeTs USewos; COB 3000 231@ 
nafs? oS Metal Thin ott oh eesraa postal sects c tee cnt a fun pars Epa rented caren cea nar ett a (OO MORE an. Mep 28 nny ei samia Pes ae pat geek ed ceed 24 
REAL A3 00825000 2 
BOOLEAN Bs 00826000 1@ 
_ FABER hE be Seah ss taal cotter nse Dehetre st ee an en OS Ri erste nie ra tS 2 
IF NC=O THEN 00828000 28 
IF OP40 THEN GO 1U LES 00829000 1@ 
igen teenie AP ATF CIVALIO TREN av ELSE AVCetesubj eC he. = 00690000 tee ee 0 
IF OP#0 THEN NC ELSE 00831000 2 
CIF OPs2 THEN NC+2 ELSE wC)+REALCBYLST#4 ANO FSTzx4)) 00832000 l®@ 
WIHEN sas Ser conch Se OOD THOU O Pr netecsn Sag. «uciteiaimne tee et —— 39 
BEGIN & ITEM CAw NOT BE HELL UN THIS CARD 6083400C 
IF CIVALIOD THEN % OUTPUT THE vALID CARD FERST. 00835006 @ 
sting sete Sade and hs scot es ie EN. _ del a a ecg th gee gin I OO af ans ce oars teens: 38 
IF AVC>O THEN EDTCICsOsLSTsOrAVC)$ AVCe72=BB3 00837000 wd 
TRNSFWDS (CBCCBX*CBX4120)sCICO}212)3 00838000 1@ 
jabs pes ae ses Ico OD NE Be ne 2 aren hr lm set at a en et eo OD BOO Oy er ee 39 
END ELSE 00840000 ” 
IF NUT CIVALAC THEN 00841000 |@ 
sorte base ha sellcte area EMS Ss ee OG PN eGR Oe Ds Rn mn ee a Re oe eee . OO BO 200 0 nn ct eee a 
IF BB#O THEN 00843000 4 
IF BB+NCS72 THEN 00844000 4@ 
+} ee BEGIN, EDTCIC*O0*#LST20-8B8)s 00845000  _ pes baa 
IF 8 THEN 00846000 9 
BEGIN BeFALSES AIF CP=2 THEN NC+2 ELSE NC ENU$ 00847000 | @ 
- sae END ELSE AvCe72s C1 to ee p 0 as 
ENDS 00849000 49 
IF BOOLEANCE VCO] 601912) THEN CILGIel 3636)e43 00850000 @ 
ee ee ee eee é HEN SOOO VO caine, tra ce tet oe hee ee A, af 
BEGIN CIL11]*NCE3 00852000 6 
IF REALCRESW)41 THEN TRNSFHUS(CIL102sENO+1)3 00853000 1@ 
Kaboose rteant Crea telo oe END a al ek a hee a hd OE ONS te le 5 
IF AZO THEN EDTCICSEST»>LSTolF 8 THEN “OP ELSE OPsNC)300855000 55 
: IF CAVC#AVC™A)ZO THEN CIVALIV*TRUE ELSE 00856000 {@ 
oo Po THEN SF OOQ y 
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BEGIN % ENU UF IME CARO, GO TO CBC*s*), 00858000 


TRNSFWOSCCBLCBX*CBxt1 eC) eCll0)212)3 00859000 e 
ate bates dietitian Dict oe OU NATIVE PREGE SR oe or ed. Sas cet aa Stas oe OU M OOOO Un 226 tect Iie So Mai tees 
END ELSE CIVALIDeTRUES 00861000 : 
LE! END EDITING3 00862000 1@ 
_.PROCEDURE 9 CE RREDTCNGCDS BO RD00 Poet eRe CS OEE ST OREN 3 
VALUE NC3 00864000 4 
REAL NC3 00865000 |@ 
tanta etre NN eae ce Rcd oes ata eh ee ee at. CO BEOOUO-..n-. ete So ees _ 6 
INTEGER ArB3 00867000 ? 
LABEL L413 00868000 /@ 
ea Ss ol Sava ramiant E Aan Oo Be +03 i 0 Ha ee ee ee ee Beg a ae a Ses 00869000 20 “i 9 
DCG BEGIN FSTe43 00870000 10 
TRNSFCHRCEVCOJ*EVOEIF A25 THEN (A@5)eC3986)41 ELSE 0)00871000 1@ 
See PORE ed Te eee oe ———delF A25 THEN CA"5),0£4533) ELSE At+3+NCeNCWA)S OO87?2Z000 eon aed u 
Lis TF CIVALID THEN 00873000 9 
IF AVC#O THEN EDITINGCO*0)3 00874000 @ 
a en ee EA NCOCIF CIVALID THEN AVC ELSE AVC*#72) 00875000 18 
THEN AVC ELSE NC)>63 ThEN At633 00876000 '6 
EDITING(1°A)3 00877000 |@ 
aaa eater ENCOUN TT ING SRS. DB OBS oii etek pte ee te tn OOO TBOOO ho) 2 oo nut clit "9 
‘END ERREDT3 00879000 "9 
INTEGER STREAM PROCEDURE LEADINGOCAPNC)S 00880000 2 @ 
Ps WN te dinn a oats NG Bi tel ren ee ree he ie ee Pe eta nae tay Sa te OOBS1 O00 foe co, oe oe ee ee RTO 2 
BEGIN 00882000 2 
LABEL LisL&3 00883000 21 @ 
Be ct tte _SleAd SleSt+3s. TALL YeNCg ever none LOB B400.0- i Be er a cae 
IF SCe"O" THEN BEGIN LEADINGO*TALLYS GO TO LE ENU3 00885000 e 
AeSI3 00886000 Fal 
fae ea Oe Tae Vator arn _NCCIF SC#Z"O" THEN JUMP QUT 1 TO Lt ELSE = B7000~——i—“‘“‘; 2; ;2C;C*” mars 2 
BEGIN SI#SI+15 TALLY*TALLY+63 END)3 00888000 ie 
TALLY#13 LEADINGO*TALLYS DI©AS DS*LIT"O"$ GO TO LES 00889000 es 
Ese eS Satta ge ed ADINGO*TALLYS DI*AS PS#LEAVING PR et es SOOO UO 00 on eee B 
LE END LEADINGOS 00891000 a 
BOOLEAN PROCEDURE SCANCTYP)3 00892000 hed 
COMMENT. A. ff RPtoetateezseonaaeeoasoasoaeas teas sePaseateaepmpasa Pease gaa. 24090893000 | BR eciceardl, Conte beeen tne, Macnee is saa 7 
: PROCEDURE SCAN DOES THE SCANNING WORK UN AN INPUT CARD FILEe IT 00894000 ‘ 
sSCANS DEFFERENT TYPES OF Ap ORM ATION ACCORDING TO THE VALUE HE "TYP™ 300895000 1 @ 
——__-----EWHICH IS THE ONLY FORMAL PARAMETER PASSED TO TRE PROCEDURE. IT ALSO 3:0 0896000... c Ae 36 
tSKIPS BLANKS AND TELLS THE NEXT CARACTER IN THE INPUT STRING: THE 300897000 37 
sCONTINUITY OF COLUMN 72 ON A CARD AND COLUMN 1 UN THE NEXT IS ALSO 100898000 a4 @ 
| TAKEN INTO CON R _ _ 800899000, i is ; totes! 3s 
’ TYP20? SCAN FOR A STRING OF DIGITS. 00900000 40 
: TYP=13 PICK UP THE FIRST CHR WHICH MUST NOT BE AN INVALID CHRe 800901000 |@ 
ts ype2t SCA A_STRING ETTERS 300902000, —————s -_ 4 
: TYP#3% SKIP BLANKS UNTIL A VALID CHR ENCOUNTERED, 100903000 4 
: TYPa4t SKIP UNTIL A CHR WHICH EQUALS To TYP, C3616) WEICH MAY BE 300904000 4@ 
Pes eee ee ee D CHARACTER. 100905000 eee 49 
| TYP=5% SCAN FOR A STRING OF COMBINATION OF LETTERS AND DIGITSe #00906000 46 
’ TYP=61 PICK UP CHRS UNTIL A ""* ENCOUNTERED» THEN SKIP THIS ""™", 390907000 |W 
: ST P SS _ JS SAME AS TYPs 908 ‘8 
' TYPs7t SEE THE NEXT CHARACTER. ~ 300909000 as 
: BESIDES "TYP", SEVERAL QUTSIDE PARAMETERS ARE also CONCERNED IN 400910000 so @ 
tT PROCE OUR 100911000 51 
: CARD 3 THE CARD FILE WHICH SUPPLIES THE INPUT CARDS. 300912000 5 
' CVC#)% A SAVE ARRAY WHICH IS USED AS THE CARD BUFFERe THE 1ST 100913000 «| @ 
‘ CHARACTER OF CVE£9] MUST BE AN INVALID CHARACTER, 300914000 5 
4 ‘THE ADDRESS OF CVCO) EXPRSSED AS AN OPERANDs 100915000 s5 
1 . CED & THE ADORESS OF CVL9} EXPRSSED AS AN OPERAND, 100916000 1@ 
24 THE’ STARTING ADORESS WHERE THE SCANNED INFORMATION GOES, 800917000 5 
@ @ 


@ & 
g IT 18 ALSO EXPRESSED AS AN OPERANDs 300918000 
@| : EET t SAME AS "EST" EXCEPT WHEN THE SCANNING IS IN CUGRPARATIONS00919000 e 
Bolo we ce) $e WITH A STRING" CSEE ALSO PROCEDURE "STRING™), = = =800920000 
; CC. & THE CURRENT ADDRESS WHERE THE SCANNING SHOULD START. 100921000 
@:: : AFTER TH SCANNINGs IT IS MOOIFIED SO THAT IT PUINTS TO #00922000 
3 tT WE NEXT VISTI SHARACTER Ss OFS 9000. co tt 
4 2 NCR ¢: NOe OF CHARACTERS SCANNED. 200924000 
@|: ’ NXT & TWO FIELOS TO COMMUNICATE UUTSIDE: 00925000 
Oe a a Se oe T,.03636. H 3 V B Cla" eis tae RE FTC Re Pere On ees 
1 F NXT,C4226]% THE CHR*CODE OF THE NEXT CHR, 00927000 
@: : Of DIGIT» 25 LETTER» 4% SPECIAL CHRy 100928000 
: eee: eee s 4 OR 3% INVALID CHR» THIS IS ENDWOFSFILE COpe, 100929000 
9 : leyeKt THESE ARE USED AS SCRATCH PARAMETERSe 300930000 
oe: : VALUE OF RESULT! 700931000 
a 4 BIT 474 INDICATION OF ERKORS (SEE FOLLOWING), 00932000 
r ’ BIT 468 AN INVALID CHARACTER ENCOUNTERED (BIT 47 ON)» 100933000 
@ “ : BIT 451 NUMBER OF CHARACTERS SCANNED MORE THAN 63 (BIT 47 ON)e £00934000 
‘= sees Be ae pent ps santo acly ice teesternts nae Sieh OR ig Cy PAG O64 0767 wenn ene 166935000 .. Peete eae 
6 15 ecu WCW aha WSS 8 -bUHE Ewe LED GS WAN SN OUND DW CAU EGU EAE CE hbo O08 30000 
@” VALUE TYP3 00937000 
Oo a etsn eth Pie cast TINT Ee 2 oe TE Ba Sa Pat es Soe Cee eM 2 es OD OU et Sane oo 
9) BEGIN 00939000 
@* REAL STREAM PROCEDURE SCANWING(DeSsBKs TY)3 00940000 
| vee WADE ares Ee eel Ae ET eae ae etna NOE: 0 cL" ts We ol 8 CORRE a ete ee nae 
p2 BEGIN 00942000 
6» LOCAL TeBS | 00943000 
& Ho FABER DIGITS» SNGLCHReLETTERS* DEBLANK» IDENTFE Re CHARACTERS 00944000 002 
ae LABEL COMENTsCHRCTRe CONTINUE sNEXT* USK» RESULTS 00945000 
5 @ - Sl*D3 DI*LOC SCANNINGS OS#WDS3 00946000 
3 27] e e 
8 he DI©SCANNINGS SI¢T3 00948000 
A Be ClecIl+TY3 % BRANCH ACCORDING TO VALUE OF TYs 00949000 
Ps Seb a aes ee 2 gO POO GELS Sas TY SU nn it a ee OOF OOOO cc 8 oat ee 
GO TO SNGLCHRS % TYe#l, 00951000 
6: GO TO LETTERSS % TY=2,» | 00952000 | 
p eat ies en ee tee oe EO TO SOE AL ANS at BTV I ag tt Ste cn OPS SOOO Hin aye ottyr aan ates 
f GC TU CHARACTERS& TY24, 00954000 
eo GO TO JOENTFRs & TY=5, 00955000 
Pee eet 5 rr een __ GO TO CUMENTS & TY=65 ELSE (TYS7) SEE NEXT CHR, 00956000 2 oo 
i IF SC>"9" THEN GO TO CONTINUES 00957000 
@ = GO TO NEXT3 00958000 
Pe _ COMENTS ~—OEF SC>™9" THEN GOTO CONTINUES 1 9H VONOO 
IF SCe""" THEN BEGIN DS*CHRS GO 10 COMENT ENDS 00960000 
" Sieste ts GO TU DEBLANK3 00961000 
42 CHARACTERS BI eL OC Tys DleDI +63 90962000 
“9 CHRCTR$ IF SC4DC THEN | 00963000 
| BEGIN SI¢*SI- M vleorn43 00964000 
6 pngn 10 TO UNE 909 7 
SI*S]+13 ae TO CHRCTR3 00966000 


? ENDS DI¢SCANNINGS 00967000 


_ GO TO DEBLANK} 00968000, 
IOENTFRE IF SC>"9" THEN GO TO CONTINUES 00969000 
IF SC#ALPHA. THEN | 00970000 

ww GIN. ; 00971000 ee 
GC TO DEBLANK3 00972000 
LETTERS! IF SC>"98 THEN GO TO CUNTINUES 00973000 

= _ If SC2"O" THEN GU TO DESLANKS 00974000 bee ele 
BS . IF SC#ALPHA THEN 90975000 
BEGIN: OS*CHR3 89 TO LETTERS END" ELSE : “009746000 


4 Oo Y 
10 TO DEE Ks 00% N00 


g O 4, ) 5 
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‘oS a nn A te tenet i et neg 
OIGITS: IF SC>"9" THEN 00978000 
CONTINUE? BEGIN TALLY*3s GU TO RESULT END3 00979000 
tN A i ie, deer et Pn eA IND ae 2 ees cot ad oe a Ske alas ty ,, - OOOBOOOU. Nae de ced ewok 
f BEGIN DS*CHRZ GO TO DIGITS END ELSE 00981000 
2 GQ TU DEBLANKS 00982000 
3! sie ow SNGECHRE TF SC>"9" THEN GO TO CONTINUES === = 000 sis wees! 
4 OS¢CHR}3 00¥84000 
5 DEBLANK? IF SCs" * THEN 00985000 
‘ eae cpbeea aaa ener et OG LIN PALIN Ole Be BY hee hs, Ga en 2 OOVROON0.. .--. Sess Ste I 
DBKS SleSy+43 00987000 
: IF Scz" " THEN GO TU OBK3 00988000 
if ee eRe ee eee oe ag A ND hn ot Dah a es Aa oe Toe eee ety a OOV EO OO0..... i den tine 
ee IF SC>"9" THEN TALLYe1 ELSE 009390000 
NEXT? IF SC2"0" THEN TALLY*O ELSE 00991000 
ce rete ESC SAL PHA THEN TALL Y¢2 ELSE Tali Yeas = 92000 t—i‘CO™*# 
RESULT: SCANNING¢DIs Test; 00993000 
DIleOs SIeLOC SCANNING? DSeWOS3 «& UPDATE DI. 00994000 
--—_..__SCANNING6TALLY3 SteTS 0 8 SOD 
OLeLOC SCANNINGS DieO1+6; OS*CHR3 & NEXT CHR, 00996000 
DIe+Ss SIeLoC Ts DoewDS3 «4 YPLATE SI, 00997000 
renee Se ae ne ae eho eme ee) 3s MLL ORR - F SRNR) Wot 5 il eens ee ENG OD | eee ee RTT, a aoe Re ¢)(0%-5° 17015 0 ee 
IF SC#"O" THEN 00999000 
BEGIN DIe*BKs SIeLOUC BS DOSeWOS ENDS 01000000 
Sage crc RNIN fe ad ee ee el ke lt POO PIOG cn hs 3) wound cx 
STREAM PROCEDURE INVLIDCA)3 01002000 
BEGIN 01003000 
matali te WGA Na pct Bo tas Stee ad ae oe oe ale le DAO OOO ae ocak sets le ete 
SIe*As DIeLOC TZ USewoS; 01005000 
DIl*Ts OS*2 RESETS DS*2 SETS US*2 RESETS TeDI; 01006900 
sees fe ee 2a eh OE Te Pte Ag DeenDSs 0g onrAon 
END INVLID3; 01008000 
INTEGER Le leK3 01909000 
: OI ae ee oe le 5 OO OO neo aw 
BOOLEAN BC} 2 [TEM SCANNED CONTINUED TO THE NEXT CARD. 03010000 
BOOLEAN BR} % SCRATCH BOOLEAN. 01911000 
pe cet tS a ABEL 2 2 One kOe elie 4eh§ Tt ti nl I NO Ce oa copes nec Aa 
4 COMMENT IF THE CURREAT SCANNING STARTS AT A NEW CARD» AND IF IT IS not 01013000 
35 DURING PROCESS OF A “DEFINE”, OUTPUT ALL TRE ORIGINAL SYMBOLIC 91014Q00 
si eee RE AND NEW GENERATED CARDS? AND TERMINATES THE GENE TING pROCESS;01015000 ees 
a IF NEWCARD THEN % ENO OF LAST CARD. 01016000 
3a BEGIN NEWCD+BOOLEAN( 188836339291); . 010137000 
— 2 coven ABO BBBS % NOe OF LEADING BLANKS ON THE NEW CARD, 01018000 _ Bail OR 5s ea teen Goi 


CUMMENT 


IF GENERATE THEN % DURING GENERATING PRUCESS, 01019000 
BEGIN % TERMINATE GENERATING AT THE END OF A CARD.01020000 


Ban ante a eee eee IF CIVALID THEN EDITINGCO*#AVC)3 GENERATE e&FALSES 01021000 


ENDS | : | 01022000 
IF QUINENCO™2 THEN - 7 : 01023000 
BEGIN, QUTPUTCPPC)3 OUTNeQUTNeLS 01024000 
QUTPUTNEW(NCD=2)5 GU TU LOOS 01025000 
END3 01026000 
oe IF_OUTN=NCO"2 THEN | 01027000 
Loos BEGIN GUTPUTCPC)} GUTNeOUTNG|3 01028000 
OUTPUTNEWCNCO*L)3 | 01029000 
a ENDS: NEWCARD*FALSES: 3 ee 01930000 
END ELSE NEWCOeFALSES 01031000 
PREPARING FOR SCANNING 01032000 
IF Cle JecETIZEST THEN 01033000 | 
BEGIN NCRe1s EVI OJ*BLKE"*"T 19t4at6) END 01034000 
BEGIN NCR¢QOs EVCOJ*BLK END; 01035000 
% WHEN EETFEST SEE PROCEDURE "STRING". 01036000 
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IF TYP#7 THEN 01037000 
IF ERX20 THEN BEGIN EVLGJ,CIiti]¢13 ERX*O ENDS 01038000 ® 
Kes % A VALUE TU INUI CATE THE STATUS IN SCANNINGe 01039000 
% «20% SCANNING COMPLETE» POINTER AT THE NEXT 01040000 ' 
x VISIBLE CHARACTER. 01041000 21@ 
ee MELE SCANNING COMPLETE, POINTER CAN NOT FINDOIO42000 ss 3 
% A VISIBLE CHARACTER UN THIS CARD, 01943000 < 
%$ K23% SCANNING TO BE CONTINUED TO THE NEXT 01044000 |@ 
ea ee Tee Ne EERE, _CAKD, 01045000 6 
CCO*CC$ % ADDRESS THAT THE SCANNING STARTS» 01046000 
NCCeNCE*NCD$ % CARD NO. THE SCANNING STARTS & ENDS, 01047000 | 10 
eee JF DFINE THEN GO Toyo; ss oyouRooo. 9 
IF REALCRESQ@)41 THEN TRNSFWOSCENG*CVL11)91)3 01049000 0 
IF BBK THEN FSTeLST#O ELSE FSTe4; 01050000 1@ 
Sepa Ste etc ath = A Sa a Be ALB 8 a 5 00 os sel ent” 12 
COMMENT THE SCANNING IS PERFORMED IN THE STREAM PROCEDURE "SCANNING"™» 01052000 I 
"4 WHEN "BOOLEANCK)® IS TRUE» READING THE NEXT CARD IS PERFORMED 01053000 1@ 
We Aeosee cam cette! IN THE PROCEDUR "INPUT" WHICH YEIL nS » RESULT*ValUe OF TRUE IFO,;054000 18 
18 IT IS THE END OF THE “DEFINE” CWHEN DFINE2T7RUE)» OR THE END OF 01055000 is 
e” THE SYMBOLIC FILE AND PATCH DECK (WHEN UFINE=FaLSE)3 01056000 Whe 
Ua Tks cents 2: Naas LO Sg thes aE aE gr eo et UE Se at Ae oe a sleet oe OOO cada, anu 4 aptacsngsneec ned nie ace a tcc ee eee et See 
: (Ke CNXT@#SCANNING( I1eCC*BBKe]F K=3 THEN TYP ELSE 3)) 01058000 hi 
@» 6045237) DO 01059000 | 21@ 
Pisa cei nite, oe. Aakeemeguie BEGIN 3 REAQ MEX LICAND 2S NECESSARY gaat 6 olin te OBO O ON ot pal Ee 21 
: IF cc4cED TREN % INVALID CHR ON CARD. 01061000 é 
@* BEGIN CVL9J,.L3626)¢13 01062000 21@ 
BA dene NM oo, oles oo ._—BReBR OR BOOLEANCS)s aD 2d 
e If TYP=7 THEN GO TO 153 01064000 : : 
@ ® CCeIF CC.£3083]787 THEN CCeol33!15)41 ELSE 01065000 3 @ 
Ps econo oe pclae narautous eee at OCMC Cw SUTATO TL CIO GS PAN ck tl oes emcee aoe OFM OOOO etc tt i weit Aaa! oe ee eee 2 
Pe INVLIDCI)3 01067000 | 28 
@ Keys EvVCOJetItt}e15 GO TU LOS 01068000 21@ 
0 Nh Na al A a ca: hc Ie el ME NN cae Se ce gs ae ee eel Oca a OOO ies nan, perm eh I ce hei Sin Re satel och ete cea 39 
IF Ka3 THEN 01070000 31 
e BEGIN % INFGRMATION TG BE CONTINUED TO NEXT CARD. 01071000 1@ 
seen tt _—BC+TRUES  % ITEM MAY BE CONTINUED TO NEXT CARD. 01072000 | Cecpelbies sie i dees anh a ae __ 
L013 IF NCReNCR+ 01073000 3 
CL. C338 153d L33215) x84] of 3023)", [308 31263 01074000 by ® 
THEN % NOs OF CHK IN STRING GREATER THAN 63. 01075000 Sohn nant eet 
BEGIN CVL£9J.63686)*1]; % MARK ERROR ON OLD CARD.01076000 37 
IF GENERATE THEN : 01077000 | 31@ 
oo BEGIN % KEEP ON TRANSFERRING TO THE NEW CARDe 01078000 = 
EVCOJeC1iijeis 2% SETTING ERROR IN EDITINGe 01079000 ‘0 
IF BRef44t1) THEN FST#4 ELSE 041080000 @ 
ee F_TYPs6 THEN % ADO UPENNING """ TO STRINGs 01081000  —__ | | 4 
ae: BEGIN IeEVECO]S EvlCodedareM(isrd2teds . 01082000 : . i 
ERREDT(1)3 EVCOJ¢I3 _ 01083000 4@ 
ENOS’. _ 01084000, : a is 
ERREDTCNCR) 3 01085000 9 
ENDS NCREO} LeJeESTs 01086000 «1 @ 
— CBR EBR OR BOOLEANCO)S 0 0B7O0O " 
ENDS 01088000 | Ms 
Jel}. % RETAIN DESTINATION ADDRESS, 01089000 1@ 
ges aoe et, ee N $s = ; = . 000 _ ; 61 
IF BC THEN 01091000 6 
BEGIN 01092000 bl ® 
BCeFALSES 01093000 ae ee . 
IF Igy THEN GO TO IF DFINE THEN L4 ELSE Li ELSE 01094000 | | ss 
BEGIN NCE#NGDS : 01095000 : of @ 


i IF REALCRES@)#1 THEN TRNSFWOSCENQ*CVELLI01)3 01096000 
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69 Th LOls 01097000 


ENDS 01998000 
ie ase aN a th ile al ene: oP POON cette vad See 
IF NEWCARD THEN 01100000 
Lis BEGIN NCD*NCO"13 BBKeTRUEs GO TO L4 ENDS ZSKIP BLK.O1101000 


oe tures TF REAL COPINE)20 THEN GO TO LLMs 00 OFF 20O00 LL. 
TF QUTN<NCOt2 THEN & FPCC*) HAS VALID CARO IMAGEe 01103000 


BEGIN OUTPUTCPPC)S OQUTNeOUTNe13 01104000 
eee cen anciee tenn UT PUTNEWONCDW 203 GC TO bes pee tee OA MO OOOO 2 out l adeno ans 


ENU ELSE J, i08000 

IF QUTNSNCD®2 THEN & PCE *) KAS VALID CARD IMAGE, 01107000 

cee lB cc cos cas ee BEGIN  % MAWE PC ow] AVAILABLE FOR CVre), O1108000 ow 
IF NCOSNCD*1 THEN TRASFNOSCPPCLOJsPCLOJe12) ELSE 01109000 


BEGIN QUTPUTCPC)2 QUTNeUUTN443 04110000 

ret RUAN ne er Devise E (U1 of <JDLG HEE 2) Gl 1d 09D Br UE) tC eeaeR ame rer Oat cee eae eS TIO teeter aN © i UL 60 0 CRM ee 
ENDS GO TO 433 01112000 
END ELSE 01113000 

eww tiem: wowed F. QUTNENCO@1 THEN  # Cvs) HAS VALID CARD IMAGE. o1414900 ©... 
3: BEGIN TRNSFHOSCPCLOJ»>CVL0)*#12)3 01115000 
IF NEWCARO THEN 01116000. 

Bs cewew bE GENERATE THEN POCO) C4731) ¢13 % MARK peLeTED,O1117000 
ENDO; 01118000 
L4s IF OF INE THEN 01119000 

ons vi wwnes sv wuwiEGIN. READCOPSKINCDeNCDe1 Je12,CVEixj)s. ..  O1120000  . 
IF Cvl€9)] «€36%6)40 TREN ERROFNGL3 04121000 
ENO ELSE 01122000 
AE REALCOF INE) se THEN GO TO 15 Fise oo at dkeaooa. 
EGIN 01124000 
IF EOF*INPUT THEN % READ NEXT INPUT CARDe 01125000 
Frere 0 Rs "5-10 10 3 ee re ee 


aa ket i cd tele a tet cesses CT A SS ps ND NG Dae 8 en ks Ft 
et NEWCARD© TRUE % REMEMBER A NEW CARD WUST READe 01127000 


ENDS CCeCSTS % SET SCAN PUINTER aT BEGINNING, 01128000 
tN Mos tonaihis ein 8 ate ht Dd. SIND SOR PWT EU Op ae ace ae oe ae ta ION C0 O00: aie ee sen ee 
31 CS: IF NEWCARD THEN BBBe(CC,(33%15)*CST)x64CC,13033)3 . 01130000 
e» IF TYP27 THEN GO TO LES 01131000 
RR peas tacts oka. hates! os ee dF NOT DEFINE THEN sadplte Mee tiertale nosso h as henge ooh tht oc RE nh a oO MO OO O09 oor 2 ah aah anti a ane 
2 IF BC THEN 01133000 
@ IF I¥J THEN 01134000 
Pi ax atic acca dalecasdaoha uietakudoeviiciatn Latest wth INCOSNED TT REN. sie Salvin sete ty BO OO 2 ie ae Aneta i en ah ets a 
p7 | BEGIN % ITEM CONTINUED TO THIS CARD. 01136000 37 
@ IF GENERATE THEN CVL9),C4731J¢33 | 01137000 a® 
i __...__BBB*O3 NEWCARD®FALSES NCE*NCOS 1 9BOOCO 7 
IF REALCRESO)41 THEN I[RNSFWOSCENDPCVLILIeL)F 01139000 ‘0 
& ENDS 01140000 «|@ 
he Ape IF NCReNCR+ 01141000 et we ee 42 
CP ESS Pode lSIETS I) ROS] CIO) JeE 0S )>6T THEN 01142000 ; 
e Los BEGIN Cvl9],C3a6t6)e13 & CHRS IN ITEM > 633 014143000 | 4@ 
oie GENERATE THEN 2 008: . 
BEGIN: 01145000 Zz 
e EVCOJ.C1s1J"1s &% SEITING ERROR IN EDITING, 01146000 hd 
saith: IF 8Re44s1) THEN FST#4 ELSE 01147000 r 
| IF TYP=6 THEN % ADD UPENNING ***” TO THE STRING. 01146000 4 
e HEGIN I*EylO]R Evlol*oa"""(1834236)3 01149000 | 1@ 
aces ERREDT(1)3. EV(Oleys 01350000 _ , | 51 
END} 01151000 5 
® ERREDTC(NCR)S 01152000 of @ 
_ IF TYP=6 THEN % ADD CLOSING """ Ty THE STRING, 01153000 sa 
BEGIN EVLO]#O8"M Ml gtaztels FSTe4s ERREDT(1) £NDI01154000 | 55 
@ END} 01155000 —— sd @ 
BR¢BR OR BOOLEANCS)s | 04256000 : or 5 
e @ °® 


Data Documenis/ inc. 


END ELSE 01157000 
IF BR.L4481) THEN GO TO L6 ELSE 01158000 e 
. SFO BR,C4524) TREN ES ONe ADs ce Nae A TOROS OMNES PPT O15 Lee ie. O01 0 ae NI SRT ICE URE Pe WSU ote Oe, ede OOO are ORO mE 
IF GENERATE TREN EDITINGC 1» NCR)E- 01160000 ‘ 
LE: SCAN*BR3 01161000 1@ 
_IF_TYP 3 5 THEN IF REALCOFINE) = O THEN ss oddolo1o.—~——CF7C NCC" 3 
IF NOT XRESV THEN 01161015 4 
IF NCR LEG 7 THEN 01161020 1@ 
ieee ees A PEGING  PeE VEO Yel BISONS Jeg te, ca pte i PV OPO IO one te se 
FOR I « O STEP 2 UNTIL 9 01161040 7 
pO IF XALGCI) = P THEN 01161050 , mu 
vo BEGIN JF NCR LEO 5 THEN JGeT+#10 ELSE 04161060 2 ; 
IF COMPAREACE VC LI*XALGLI 41) 502C»NCR"5)=0 01161070 by 
THEN Jel 4103 01161080 1@ 
Oe eRe CAE OER ANE Pea ON fete 3 5 ae ete EM SON CREE Seen Oe real eerie ae een OPPO TOGO ett rons te gala beth omnes — — oe foto 
"3 IF J GTR O THEN 01161100 "3 
@ BEGIN NCR * NCR #13 01161110 1@ 
Bn wale ce ten ae TRNSFCHRCEVEOJD*XALGEV]2393eNCRIS ss 014604120—” B Sonn sea 2 Ae ae 15 
16 IF NOT GENERATE THEN STARTGENS 01161130 "6 
e” | ENDS 01161140 "@ 
ss aA ete ee EG sie el, Bae Sag sets BN Pinos hcg lo Get lS aa eg Fae Pat Se ae cE re a tn eR bh dN POD Stans count weil un Aphis ahg ee Reeo a Ae at wi see eo eee 
st END SCAN} 01162000 19 
e* REAL PROCEDURE SCANNINGS 01163000 1@ 
| aeenees ere COMME NT _ 2.92.98 @ a8 ee 8 ee eee tae aaa eee Pat aM aaa saeenaea fa. (beer ee ceed saedegeaseOPLGd0GG 9.” By ih Io REDS et i aa a 
2 : THIS PROCEDURE SCANS A WORDe IF ThE woRt IS A “"LEFINE"* SCANNING $01165000 2 
ee twILL AUTOMATICALLY BRANCH TO THE OEFINETU GET "NXT" AND Da 01166000 21@ 
1  BRETRY« OIF THE WORD IS A "COMMENT"* THE COMMENT WILL BE SKIPPED AND 201167000 ree, 
bs tDOES THE RETRY AS THAT IN KANOLING THE DEFINE. 101168000 . 2 
Or $ VALUE OF RESULTS 101169000 1 @ 
1 Ot A RESERVED WORD TS SCANNED. ON O00 2 hr ey ccitesun ee eos ten er ae ee eee 2 
; : 1?” THE WORD ScaNNED HaS MORE THEN 63 CHRS OR AN INVALID CHR» 801171000 2e 
@ : THE WORD IS EDITED. 201172000 . 21@ 
dat A DEFINE, BITE 29213) CONTAINS The INUEX GF INFOC***J, 303173000 s0 
' 3 4’ A SUBSCRIPTED IDENTIFIERs 301174000 3 a1 
er : 6% A SIMPLE IDENTIFIER. 101175000 | 2 @ 
5 eer rene 83 NOT FOUND IN INFOCes*j, CIFX ALWAY SET TO BLK). 801376000 2. a 
: 10% STREAM PROCEDURE OR A STKEAM VALLE VAKIABLE IF "STRKM" IS ONe 301177000 ! 
@* : 12! STREAM NAME VARIABLE. 104178000 3@ 
}— PEED SA _i4% STREAM VALUE VARIABLE ALSU IN LUCALE*J, = = = ONE ICOON = 
p? “y “16% STREAM NAME VARIABLE ALSO IN LOCALE #). 401160000 ) 37 
@: : mewnetms 5, Ce PAO 04/23/68 ommeemn= 301181000 1 @ 
Seee 2.9.9.9 8 6 8 8 OEE s Pee h oe ome meee eat oet tose ere sereteosad veer enereeenesaeee? $01382000 = = - bs 
BEGIN 01183000 40 
@ REAL PexeY3 01104000 |@ 
LABEL __ LL eLOrdebEs a ee ee ener, 01485000, — —s—s— 43 
3 IF SCANCS) THEN | | 01186000 4 
e BEGIN SCANNING¢13 IFX*BLK} GO TO LE ENDS 01187000 | 4®@ 
RPO EVE OVENCROEGE391 327733 _ 01186000 ; f 
| IF CIFX*STKHUCLP MUD 125))80" THEN GU TO LOS 01189000 ‘9 
@ DO 01190000 4 @ 
eghae yreeS etes Saed an __IF_INFOCKIFX«L35#S]oVelFX,C4GthJISP THEN 7 QO1191000 “e 
BEGIN 01192000 As 
IF NCRSS THEN GO TO | 04193000 @ 
ape IF_IFX2LFX THEN ELSE IF IFXSRFX THEN &1 ELS 301194000 81 
IF COMPAREACEViLJsINFOLXsY¥41]*°020*eNCR@"5)80 THEN GU 01195000 5 
@ IF IFX2LFX THEW L1 ELSE IF IFXSRFX THEN LL ELSE LL301196000 “1@ 
END UNTIL CIFXeINFOEXoY"1).Ci2ti3))=03 O4197000 64 
Los IFX#BLK# © SCANNING*83 «GO TO LES - 04198000 age gS Fal 
e Lit IF. BOOLEANC Xe (Pe INFOCXs ¥"1)).04832) THEN 01199000 | | @ 
XY THEN SCANNINGO1O ELSE UUUCC—C—“(‘“‘(CSCCO}2OOOOO UU y 
@ @ °@ 


Data Documents/inc. 


IF STRM THEN SCANNING*9+x ELSE GO TO LO ELSE 01201000 
@| IF X#0 THEN GO TO LE ELSE 94202000 
oo ete tt wud Fo X34 THEN SCANNING®28 (TF X+P 0 f4038])£29239213) ELSE Q12ug000 | 
( iF STRM THEN GO [fO LO ELSE 01204000 
@: IF CSCANNING*X)#2 THEN SCANNING@QS 01205000 
3 tal viernaden 2ouicecdeeds, "END SGANNINGS 9c 3 os oe OT RU GO00 ue nc 
4 PROCEDURE ERRORS 01207000 
@: BEGIN 01208000 
‘ oe.) ene 7 Cee ib et pepsi tote god MIL OOO Sik suit Ae ag iil as 
I7 IF DFINE THEN BEGIN ERRoFNeis GO TO LE ENDS 01210000 
eo: * EVCOJ,f1ti jer 01211000 
9 ttt JF NCOBNCD@2 THEN ee a emPree? 1) 0 491° | ee 
BEGIN PPCL9J,(36%O)e15 PCL9},C36%6)¢) END ELSE 01213000 
@: IF NCQ=NCD@1 THEN 01214000 
pears fas SS te eth dt BEGIN POLO) L3Osoteds CVIPIL36t6Je1 END ELSE 04215000 
f CVI9I L368 GJ e13 01216000 
LE! END ERROR? 01217000 
serena ee PRUE E BRE accent EE VN CY ee ed ret ee ie Se o1218000 
COMMENT ee Oe eee re er ee ee pire en ey er ee ee ee ee eae re wer ee eg ero ON 
@ ‘ THIS PROCEDURE STORES UP ALL THE CONCERNEO INFORMATION OF THE 301220000 
_. ACURRENT SCANNING ANC READS "DFSK" FILE STARTS TRE SCANNING OF THE = s0j1221000 
t DEFINEs ‘"F" IS THE INFO*INDEX OF THE ADDITIONAL INFORMATION OF THE 201222000 
@ HOEFINE. 1014223000 
vcee oe cate iitwwiaiate moe eC. PAD 05/04/68 aww rnene 3 01224000 | 
l ee a es ee 
® VALUE F3 01226000 
sR ole cnecs eel Rese Eaten a eae apc ao a a ea ce eae he eg LOCOS 
BEGIN 01228000 
@ IF BOOLEANCDEBUGN) THEN WRITECFOQULNUJsDBGs"DFN@IN'SNXT oF »LOF 23 01229000 
sila Misti neuhce ainda: -haphce pCO DE ELDER SAO IMO, 8c lo Oe Sot ee ce es oe ON OOOO ee cr et 
“STRELDF»s 1)*REAL(UDFINE)$ 01231000 
@ STRELDF» 2]*REAL(GENERATED3 01232000 
oe oe cree ee STRELDFs JIEREALCNEWCARD)S 0 0299000 
STRCLOFs 4)*REAL(RESQ); 01234000 
 ] STRELDF» 51€CC3 3 01235000 
eee Wore 8 G0 1 £800 ee ee ee ee Pe Le eR ATS ©) ork > 19) $2 0a en vt i eae ne 39 
STRELDOF*® 7)*CCO} 01237000 
@® STRELDFs 81*NCOS , 01238000 2@ 
Pa i tn lari ag Me ae UR DRO TONGA BLS Mies. iota eee se ea ONS SO as Sa este ce gs se 
STROELOFeS1LOJENXTS 01240000 ial 
@ STRULLDFelilefST3 01241000 4@ 
esa Riche ft Sate eRe iat aes Pe pees _SIRCLDFei2}eL$T3 MO 2A OOO cnc ty a ee rn gems Shee ps 
40 STRCLDF 213) ¢REAL (BBK)3 01243000 0 
@ |: STRELDF #14 1*NCES 01244000 «|@ 
| TRNSFWOSCSTRELDFs 37] eCVCOJe1293 01246000 ' e 
@ OFINE*RESQ*TRUES LST#43 01247000 | a 
CGE NERATECNEWCAROCBBKEFALSES UCU HBOOO : 
READCDFSKENCD*F Jol2eCVLe))3 CCeCST 01249000 6 
Yay ERRDFNeCVL9], (368633 FeREALCSCANC3))3 01250000 18 
BOOLEANCDEBUGN) THEN WRITE CFOU,DBG,"* wi" n," ", 01251000 nae 48 
" “s"AFTERE SNXTsLDF DS ~ 01252000 | as 
@ IF DEBUGN®3 THEN DUNPARRAYCCV»0, LL oF QUeterey ee da mrcod 01253000 «4 @ 
END DFINEINS 04254000 | 81 
PROCEDURE OF INEQUT3 04255000 5 
e+ COMMENT ee ere ee ee ee re ere i ee rr ere er ere eer are eee ae a aera cer geo eo 091 8 s1@ 
_' _THIS PROCEDUR RE RESTORES THE UBT GENAL SCANNLNG: TNEORMATEONAANO. 501697000... beietla phir et 
tCONTINUES THE ORIGINAL SCANNINGe 101258000 | | 55 
@ | ' oe  mmewnmmn J. 6, PAD | 05/04/68 eae =m=9 191259000 |@ 
boee se: owbees eb ee eae e ea ee ere e teen een 3 2 ¢¢301260000 : 22 ba 5 


rd] q 
BEGIN 01261000 
& REAL 13 01262000 g 
—E —BOOLEANCDEBUGN) TREN WRITECFOULNUJ»DBGe"DFNOUT™»NXTsSTRIOOJ oi DF )S 01263000 
1 DFINE ¢BOQLEANCSTRELOF »1])3 01264000 
@» GENERATE+BOOLEANCSTRILDOF 22])3 01265000 
3 i NEW CARD @BOOLEANCSTRILDF 93103 0 = 60D 
‘ RESQ +BOOLEANCSTRILOFs4])» 01267000 
@|: CC *STRILOF> 5]3 01268000 
: eee I RTE i a Fe OOP OUO ois es es 
’ CCO*STRILOF> 733 01270000 
@| NCO*STRILDFs 833 01271000 
9 se ee ees te NER OS TRC OE gO Fa a gh OE BT OOOO wo ct 
‘9 NXT*STRLLOF®10)3 01273000 
r FST*STRILOF# 1113 01274000 
Pa dat ce ta Rag canted dg Ne ON IR CLE Rc Ey i hn oe ees = OU ERO OU ee a pees eee, 
; BBK*UOOLEANCSTRILUF?13))3 01276000 
@' NCE*STRILDF 9 14)3 01277000 
BR on nen oe oe SRNSFWOSCCVEODSSTREILDF237Je42)5 == 8000 —“aes—( ss 
16 IF LDFsU0 THEN 01279000 
e” {EF CLeSTROO%0])40 THEN 01280000 
Be ao eng ee een eee «| 2c) dS Cee gene eee a ae eC ee ee OPI et ee ET 1 ae 
9 IF BOULEANCI) THEN 01282000 
@* . BEGIN EVLOJ*OR"/"Ligtg2t6)s 01283000 
aS Fe eet ee _______If_NOT GENERATE THEN STARIGENS EDITING(ie4)3 01284000 = sss 
ii ENUS 01285000 
@ » IF BOULEANCL.C40%4)) THEN 01286000 
3s OPA ashe 22s ts glerspcte eachae ppp eee eT NI ip Mg tee a ee to oe Baath es OY OR ROU Oe hire avike us trtene ees et es 
Se IF NOT GENERATE THEN STARTGENS EDITING(13)3 01288000 
:@* END3 04289000 
8 BEGIN EVCOJe"POINT"S EVELI©OR"ERC"L1It31i17)3 01291000 
8 IF NOT GENERATE THEN STARTGENS EDITING(158); 01292000 
IF BOOLEANCI.£4481)) THEN 01294000 
BEGIN EVCLOJ+Oa" "618842865 01295000 
ee ren NOT GENERATE THEN STARTGENS EDITING( 191); 01296000 s—i—drdicizél ee Ce Vee 
ENDS 01297000 
ENDS 01298000 
Ate Aen  DANSEWDSCEVEO Je SIRE OF ei 71920 )3 8 we Se eH 2IINRO: ae 
IF CLOF*LOF™42<0 THEN . 01300000 
BEGIN , 01301000 
? - the, | ad ee 
BEGIN EVCOJelCitljeds Cyl9],03686)¢13 ERRDFN©O ENDS 01303000 
@ |: IF GENERATE THEN EGITING(C1»NCR)3 01304000 
wee NN a ec a sade 
IF ~BOOLEANCDEBUGN) THEN WRITE (FOU,DBG," 4,0 yn ", 01306000 
@ » eTAFTERIMSNXTSLOF ) 3 01307000 
PROCEDURE. PERCENTS 01309000 
@ ewe BROCEDURE TAKES CARE OF SCANNING AND COolTING Ge the. aesee evceeee 201340000 
THIS PROCEDURE TAKES OF SCANNING TING OF THE NOTES TERSOL3 oe 
a "Z" ON THE CARD, | 2 301342000 
@} ' | | sosmemme J, CC. PAC O4/15/68 ==="—n 304313000 
Yoe rerruree , Tere cer ey reer res peeenas : $0$334000 
BEGIN 01315000 
@ | INTEGER N3 01316000 
LABEL LOsLisLE 01317000 cee 
55} Los NeC(CED@CCe (33FT5 1 xa=CC, C3003); *. NOw OF CHRS AFT %.013%8000 
Orr IF GENERATE TMEN us 94319000 
IF NOT NEWCARD THEN 04320000 
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T Re q 
BEGIN 01321000 
| IF CIVALID THEN 01322000 8 
ie he a Oe : pages TG TINS al Fe tt te lac eo este we tet ie ORO OOS re ee andl c SoBe Dow acu t 
1 IF N>AVC THEN 01324000 ’ 
@ BEGIN EDITINGCO*AVC)$ GO TO L1 ENDS 01325000 2|@ 
Ps te hE ede sr a ati ab oy eta cae tan eNO EAN ta a St ce Mae oe cutee ore Sena 01326000... eee 3 
: Lis BEGIN IC#1STs CIVALIDe©TRUES AVCGe723 CILC9IJ*2 ENDS 01327000 4 
@ |: IF AVCEN THEN EOITING(OrAVC*N)3 01328000 /@ 
| —- tie ict Sra cece ee A ERIN P CDCR CC RIN) Bo 8 re ee eS oi ie le OP I POOOO ea ils isco ow 6 
7 ) LSTe43 AVC+OS 01330000 ? 
@: END} CC#CED; 01331000 \@ 
PL COMMENT. .AF_THE "3" IS AT COLUMN 72 ON THE CARD, SKIP THE NEXT CARDS 03332000 _ ets Daa te Be 9 
1 JF N51 THEN &% A "®” AT COLUMN 72, 01333000 19 
er BEGIN % SKIP THE NEXT CARDs 01334000 /@ 
eee Dee gntaeen ccs POE a BOON A eet 12 
N¢REALCSCANC7))3 % SEE THE NEXT CHR TO STOP SCAN. 01336000 "3 
@ |: CCHCEDS 01337000 {@ 
5 a ee ca NO ai ie OE OE NR Fa ee nS ee Sh VO OOM oe ce Ja accassasznests 2 ise "5 
6 COMMENT SET THE STARTING SCANNING AUDRESS AT TRE FIRST VISIBLE CHR} 01339000 16 
er IF EOF THEN GO TO LES 01340000 |\@ 
be cece eee ones is tomes + trams oe REAL CSCANC3) 23. SE et ae ROR Shere eee REET AAs AER CNSR PRT Os BEC oh 6 68 a ate eI nee ee ee peeteet 
: IF NXT,(3686]3"%" THEN GO TO Los 01342000 1 
e LE! END PERCENTS 01343000 20 
hee PROCEDURE. coi MOCO MMNT Dao ee oe ctr ee _ OLad4o00. eT cee a ee mee PE, ae 21 
22 COMMENT CHOC CHEMO RODE eRe Ee HEHE EHR EEE O Hee Eee t ED aeHeneeetreresnees ener st SHIQ00 ¢ 
@ $ THIS PROCEDURE TAKES CARE THE SCANNING AND EDITING OF A COMMENTe 701346000 3@ 
-_ THE PROCESS TERMINATES aT END*OF@FILE CHK AFTER A SEMICOLUMN, THE  $04347000 eR eee ahs, on eae eee 24 
2 tENTIRE COMMENT WILL BE EDITED AT THE SAME COLUMN AS ON THE OLO CARDe 101348900 2 
@ = : Sneed 8 6a PAU 04/15/68 eee"== 104349000 | @ 
Pa ain i fo 2.6.9 0.6.8.8 0.8.8 .60.9.0.0.9.6.0 6.0 5 BPR nedtonseP abe se tosses ee tones esenecscseceeoseeess oi saGO00 . Waste naan pnammetie ate ninte 2 
BEGIN 01351000 ‘e 
Or INTEGER N»S3 01392000 28 
if Fat were wer Ws ok BABE to oo ty, : sles ee ince Ue a ite Na rs oe De A OO it fete A ne grate 30 
: IF GENERATE THEN 01354000 a 
@ BEGIN % DURING GENERATING PROCESS, 01355000 1 @ 
aye : coo EF ONOT CIVALID THEN SOE SS OO gg aspen counted Dae ieee ade oe eS 33 
a PEGIN ICeLST3 CLIVALID¢TRUES AVCe723 C1L9}¢2 ENDS 01357000 
@ » IF AVC>(N€CCED"CCO.£33315])x8=CCO,(3013)) THEN 01356000 = @ 
gerne ene tae tl eS a wiv uweaw BEGIN EDITINGCOsAVC#N)$ GO TO 12 D ELSE Reprised 7 l= 2 L001 eee eee ee ee ee 36 
wl IF AVCSN THEN GU TO JF LST#4 THEN Li ELSE L2 ELSE 01360000 ” 
@ | BEGIN : 01361000 4 @ 
ry ee BEE EDITING COPAVCIS ee OTB OL 000 Se Shee oe ie eee Seer ea Ee 
‘ EDITING(Os72=N=B6)5 CIL9Je23 01363000 io 
@ i L2s ERREDOT(7)3 % EDIT TRE WORD “COMMENT”, 04304000 «|@ 
2 et ees ate IF _N>7 THEN 01365000, ee r 
“3 IF NCO<NCO THEN GO TO.L3 ELSE 01366000 4 
@ EDITINGCO*AVE™(CED™CC eC 33415) )x84+CC,03013]) ELSE 04367000 4@ 
ee eee 2428 IF N<? THEN aoe 01308000, re 
BEGIN 01369000 ‘8 
er IF NCO#fNCD*2 THEN 01370000 «| @) 
kt EDITINGCOsAVC) ELSE 01371000 _— 
EDITING(O »65*N=(CED=CC.t TyxB+CC. Bey 01372000 Py 
@r END ELSE % N37, . »~* 04373000 s @ 
if I eeeCST THEN EDITINGCOS7? 203 0 MOOD 51 
; END} 01375000 5 
@F ENDS 01376000 s1@ 
COMMENT SCANNING UNTIL AFTER SEMICGLUMN» EDITING UNTIL THE ENO OF THE 04377000 
BS ORIGINAL CARD CEND OF GENERATING)3 ae no 01378000 65 
@ | Lat IF EOF THEN GO TO LES 01379000 | @ 
e IF GENERATE. THEN -SeNnxT3 014380000 s 
Y e@ °®@ 
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IF NXT, C36t6]="3" THEN 01381000 
BEGIN NeREALCSCAN(1)) 01382000 

Sate etna ttc eco tea dane, Sd al tata NUECEENERATE THEN, co. eee Ee aS 8 5-10 ok 
BEGIN LST¢4$ EDITINGC191) ENDS GO TO LES 01384000 
ENDS 01385000 

oe OOO TF C0906 3023)F7 THEN COeL33t15)41 ELSE 01386000 

CCR(CCeL3IGCH3I+1)C3084583)5 01387000 
Ne REAL CSCAN(7))3 01388000 

Ee eRe ee R HEN 013869000 | a 
BEGIN LSTe#ds EVEOI¢ORS(1823636)% EDITINGCLe1) ENDS 014390000 
GC TO .43 01391000 

se ee LEE END COMMNT fs GOOG 
PRUCEDURE STRINGS 01393000 


corey PR poate onto caer nd a Yat te a ra ge Abe oe a ar pa 


—_-_...--_-$__._. THIS PROCEDURE TAKES CaRE OF SCANNING AND EDITING OF a STRINGs #£01395000 00. 


sTHIS PROCEDURE ONL*¥ BE CALLED WHEN. THE OPENNING QUOTE GF A STRING IS 101396000 


tINDICATED BY "NXT", 01397000 
en ee, CO, PAD 0/16 /6BR wemmernn toi 398000 
Fete meme deem see etree eed ean b eee eee eS EO earesesasatesestenesanreseresege sets UL 39IINND 
BEGIN 01400000 
Te kth Nate oe WD Bec ER Pe cca A UAB ef a Pe ON ac th a Nn a A A Pte A OP OI ina tear 
LABEL LE3 : 01402000 
JeCCENCD (98273 21J8&REALCBBKIC184731)3 01403000 
es oa tne nen COOTE CLecOe S083) 27 THEN COefaatiSjes ELSeo6=6=6lopsounoo 
CCACT#1)030345%8315 & SKIP THE GPENNING QUOTE. 01405000 
T©REALCSCANC7))5 %& Skt TRE NEXT CHARACTER. 01406000 
Gade Me eiceons, ished ies ula Meke AF NEWCARD THEN Be ae eae OOOO aoe. 5) ok ie ee 
BEGIN IF GENERATE THEN CV(9] ef47%1]¢13 014908000 
BBBtQs NEWCARD®FALSES NCE*NCD3 01409000 
i NE REAR CRES@ OFT THEN TRNSFWOSCENOSCVELEI ods 140000 
ENDS 01411000 
IF NXT,(3626]=""" THEN 01412000 
co BEGIN & THE LST CHAWACTER OF THE STRING IS A mM, 041413000 22 
EET.C3O83]e43° 01414000 
CO*IF CleCCof30831)57 THEN CC.C33815J41 ELSE . 01415000 
i ee CCRT 41 EOE 45 2305 OF SKIP THE OPENNING QGUOTEs 01416000... 
TF SCANC6) THEN 4 ERROR ENCCUNTERED IN SCANNINGe 01417000 
BEGIN EET*tEST# GO TU LE ENUS 01418000 
ae ata I Nene Tee re een erik 4 2 Vt 2k) fee ae ea ae et a SPO ECR REAR POTION © FL C19 | ORION a 
ENN ELSE 01420000 
IF SCANC6) THEN GO TO LE; : 014921000 
RATE THEN yA 
BEGIN IF BOOLEANCY,£121]) TREN LSTeFST¢O3 01423000 
EDITINGC2*NCR)> 01424000 
14 4 
BEGIN B8BK*BOBLEANC J .0181393 - 01426000 
CCO*#SefL30981815 NCO*U. 92443 01427000 
pe ae NN ee ak ee = a 428000 " 
LE? END STRINGS 01429000 
PRUCEDURE NUMBER} 01430000 
COMMENT SO GEES CLERIC WL 1131-7 ERR CT CEE CLT: 
; THIS PROCEBURE PICKS UF A NUMBE $01432000 
$ ee de Ce PAO O4/ 25/68 sawmwwnns 01433000 
Ferme ene teehee ee Om es eee eee mone P HPs Poon Oe soneeetoretesveeresenseenes vets OL434000 
BEGIN 01435000 
LABEL Lishé2eLa»LdoeLbs 01436000 
IF NXT,C36%?6)="." THEN GU TO Ls 01437000 
TF NXT, C368615%@" THEN GOTO L353 : 01438000 
IF: NOT SCAN(O) THEN. 01439000 


F GENERATE THEN. EDITING(S NCR} “0144000¢ 
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IF EUF THEN GU Tu LED 01441000 
LF NXT, C3686)=%." THEN 01442000 
Wie SAGO os ote gba -WEGIN & IT MAY JE A DECIMAL FOlaTe UW 01443000 
IF BBK THEN & NOT DECIMAL POIATs PICK UP ANY WAYe 01444000 
REGIN 01445000 
i DF OPE THEN ERROF NEL ELSE CVCO]eC36tO]4FRxeLS 01446000. 
IF nUT SCANCL2 THEN 014470C0 
IF GENERATE JEN EGITInGClsl)s GO TO LES 01448000 
fie ath be aie sUENUO SS 2 cr aoe as eee eee eae ea ee, eee OM Oe a. 
L13 IF NOT SCANC1) THEN 01450000 
IF GENERATE THEN EUVITInG(1s1)3 01451000 
wpdgeeoluen DEP BOR ME NGO Mei ee ee oe ee lee os ee ee ONO 2 OUO oie ae crater 
IF NXT,C42:6]4U TheN 01453000 
PEGIN %® NOT A UVECIMaL POIaAT 0145400C 
e bet UU UDF INE Then ERRDP ive, ELSE CVE9 Je (362OJ©FERXe13 01495000 oo. 
GO TO LES 01456000 
ENO ELSE 01457006 
sovactl obR ORB PE NRE NMG Bee: Nera eae oat ete tte te ced ae o1458000. 
IF NOT SCANCO) THEN 01459060 
IF GENERATE THEN EDITINGC Le NCR) 0146000C 
NG se ae AE wet Ed a Sen S| A ee Gt ct ero OO Oem... es 
IF EOF THEN GO TO LE3 01462006 
IF NXT, C3686J="%" THEN PERCENTS 014630C0 
ae __IF_NXT.£3626]4"@" THEN GC TO LES Cg 
L3t LF NOT SCANC1) THEN 01465000 
IF GENERATE THEN EDITINGC 10194 0146600C 
EP SR Ree Nee Oe tls Oc a tt te tae tls __.. 04467000 
IF NXT,C3686)]="%" THEN PERCENTS 0146800C 
IF NXT,0£3686]5"+" THEN GO TO La; 01469000 
oe ee ALR ONMT E366] 842" THEN sai Sa ae are ee, Be ee OO Cit let a ecw asheat tie a 
La: IF NUT SCANC1) THEN 01471000 
IF GENERATE THEN EDITING(151)3 01472000 
= hactcuitileta ead Peso ele REIN: 1G OTC ee etn. 55) Beet leth cae ot alec ROS EI 000 te soe tee Ae ee ee ih 
IF NXT,C36%6JS"%" THEN PERCEATS 01474000 3 
IF NXT.C4286)40 THEN GO TO Los 61475000 2 @ 
AP. ROT SCANCOT T TREN oa ih th a tne Bae AO SN ents oon recency tse ela in Elie goa Rs og Se ct fe 
IF GENERATE THEN EDITING ( 1sNCR)o 01477000 
LE? END NUMBERS 01478000 a@ 
OE OE tata COUR NTC Secale te le sl a a ee ee, Mle ee ONT F000. he 8 55 6 ot hee ee 36 
VALUE 53 01480000 97 
REAL $3 01481000 3 @ 
_ COMMENT ROMO e eer ee eran renee reeset erst erereseeeestornseresoeseveevenee ees sth 4be0nd he crm ttoNie cei a 33 
: THIS PROCEDURE SCANS AN INTEGER AND EDITS INTO THE NEW CARD IMAGE #01483000 40 
tA VALUE OF 47 MINUS THAT INTEGER, IF THE SCANNING HAS ERROR OR THE 701464000 @ 
NEW VALUE IS NO GOOD THE ERROR WILL BE SET IN BUTR OLD AND NEW CARDe 201445000 > 42 
 g**eee TMPORTANTS THE PROCEDURE ONLY BE CALLED AHEN “OF INE” 15 FALSE® 2801486000 4 
: nnawmmom C. PAQ 04/18/68 wonmamemi 7487000 . Hl e 
ar canta capa ative accietarsiat nite eutee ae Coe eF neo veosneeeFeseeeogsposersoenee eset GI4BEN00 et 45 
BEGIN 01489000 : 
INTEGER 13 01490000 ahd 
_— LAB ; 49100Q . 
‘IF BOOLEANCDEBUGN) THEN WRITECFOUP0BG, "FOUR@? Me NXTIE. 01492000 : 4s 
; IF BOOLEANCS) THEN 01493000 | 4 @ 
pies ER SCANCO) THEN GOTO LES = OOO 8 
IF NCR>2 THEN 01495006 5 
IF NCR®LEADINGOCEVEOJ»NCRI>2 THEN 01496000 ; s|@ 
kas BEGIN % NO. OF DIGITS MORE THAN 2, a se 
ERROR; 01498000 55 
P TF GENERATE THEN EDITING(1/NCRI3 01499000 . . sq @ 
heck | GOTO. LES on 01500000 ie , y 
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eo 
ENDS 01501000 
@ IF Cleg7*CIF NCRE1 THEN EVCOJ+L1826) ELSE 01502000 ® 
tate eee oe EVEOD LIBTO IK LOPEV (OT. C24ted)) <0 THEN FOP POSD OC. 210 hes Soe ees 
1 GO TO L413 01504000 ! 
eo: IF I<140 THEN BEGIN NCReL3 EVCOJ].C18%6]*I END ELSE 01505000 1@ 
4 BEGIN NCRea3 01507000 4 
e: EVLCOJ,CIBI12]¢ENTIERCI MOD 10)8C1 DIV 10)636#42%61]3501508000 |@ 
é sera taspesidieiiadcin Wistar eater eI SE IG Gs WO bebe = aon re od onan nes ao ann OOO Da asad hl es 6 
; IF NOT GENERATE THEN STARTGENS EDITINGC1*NCRIS 01510000 d 
eo: LE! END FOURTY73 01511000 10 
9 _ REAL PROCEDURE sss CHECKNEXTCNEXT)3 gee ee Aaah sss SSD OO aa cp nia Se nw A 
ie COMMENT Gb S asi oie haa RAS REN 6 ERAT TED ES CE EEL LOT NEESER) ib 0000900 SW ss OHO OT 8OCe bis 
ee" : THIS PROCEDURE CHECKS THE "NXT" AGAINST THE GIVEN VALUE OF "NEXT" 301514006 1@ 
aT ALSO TAKES CARE EOF BRANCHING INTO A DEFINE ANO SKIPPING THE n%" AND401915000. ee ee ne ee eects Te ee eae ees v2 
3 THE "COMMENT", 201516000 ‘9 
e' : VALUE OF RESULTS 101517000 1@ 
i t—=<Ci AA RESERVED WORD OR "DUNT*CARE” UR (NOT FOUNDs IF _IFX=LBKe 301518000 eco pela RE aoe cele ee ie re ee 
vel : 1% THE END“UF*FILE. 301519000 16 
ee” : 2% A&A SPECIAL CHARACTER OR DIGIT WHICH NUT EQUAL TO "NEXT 201520000 "\@ 
Fees uae om toe ch THE ONLY: CASE. THE "NAT" DS NOT SCANNED EVEN NOT MATCH) s 8 207221000 oy at euehueee ee 8 
9 : 3? THE RESERVED WORD "SEGIN".» (NOT EDITED). 204522000 19 
@~ : 4% A SUBSCRIPTED IDENTIFIER, 301523000 1@ 
| CS OTHE RESERVED WORD "END". CNOT EDITED). OE AMONG a 
; 6: A SIMPLE IDENTIFIER. 201525000 29 
& : 82 THE "NXT EQUALS TO Tre GIVEN “WeaT™ Cwol SCANNED)» 301526000 31@ 
on 5Saa itll gt AN INVALIC CHR Gn tue UF Une ae: eee en CAST Rit VS UNI 62 O19 67000) cul. oe dwe nee 24 
: 103 STREAM PR CCEDURE OR STREAM VaLUL VARIABLE IF “STRM® TS UNe 401528000 2 
@ : 12% STREAM NAWF VARIABLE. CY™STRM™ ITS ON)+201229000 21 @ 
Cpe et ee SO STEAM VALUE. VaARTABLE ALSU TN LUCALC ad,  C"STRM” 15 GN) 08015530000 2 2 
3 16% STREAM NAME VARIABLE ALSU IN LOCALE #16 C¥sTHM™ 1S UN)e#015931000 26 
e : one mw tee ee PAO. ~ 04/227 06° Sere ere £075 32000 hag 
ret im 9 *@ eg oeee Oe ere ease Fteare ona egeneeoPersre SoeaeeF eo oe teva rpesse ! ¢ Gere cee ee eee OL 23 an a} 3 oo G C Bs atic, seg os tte tue Pa Mita la cg a a ee 
VALUE WEXTS 01534000 
@ REAL NEXT 01535000 21@ 
eer Sc AE host HE GEN, = ee, ie on Seater Be esas eters et coat a eee mle gate ac dst Mins A ee OD OUS nce! aces, f Pit, teehee ae ie tel Lae Ra eee 
REAL i 01547000 3 
@: LABEL eiobdetes 01538000 1@ 
a ELF OLDS % LOWEOT CEFive LEVEL ENCOUNTEREDe 0 01939000 is 
tri if €UF THEN 01940000 7 
e BEGIN CHECKNEXT#1s GU TO LE ENDS 01541000 3@ 
I NXTSNEXT THEN BEGIN CHECKNEXT*84 GO TO LE ENDs 01942000 2 2 
IF I#NxT.C36:6]="8" THEN BEGIN PERCENT? GO TO L1 END? 01243000 40 
e IF [="#" Tren 01544000 |@ 
; IF OF INE THEN BEGIN OF [NEOUTS LLFeLOFS GO TO L1 ENDs O1545000 _ |” 
IF NXT,C42t6)42 THEN BEGIN CHECKNEXT#2s GO TO LE END301346000 4 
6 COMMENT CHECK THE NEXT CHARACTER IS A LETTER» CHECK WHAT IT IS; 01547000 «@ 
A BOOLEANCIESCANNING?) THEN 01548000 __ 
BEGIN IF STRM THEN CHECKWEXT*9s GO TOG LE ENDS 01549000 9 
@ IF 120 THEN 01550000 \@ 
ee eee 55 Ce ae a na ee ere ae ee eee meses O18 | eT ee eee “8 
IF IfFX=DFX+2 THEN % RESERVED WORD "BEGIN", 01552000 _ is 
e BEGIN CHECKNEXI*3s GO TO LE ENDS | 01553000 | @ 
UR LEXSDE X44 THEN % RESERVED WORD "END", =. 43554000 = a 
REGIN CHECKNEXI©5s GO TO LE ENDS 01555000 5 
@ IF IFX=DFX+6 THEN % RESERVED WORD "COMMENT", 01556000 3@ 
ae 
BEGIN COMMNTS GO TO Li END3 01558000 wi : Fe 
e 0 To IF REALCSTRM)®O THEN L4 ELSE LES 01559000 8 | @ 
setae lee acc Aa aces heat HIRT De nat ae ti va NE ah a cenit ol nN itt ee OO 
@ 
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.-- BN Ne tt ne ae eS ee ee i ea Re - Foaotat eaves nt Ze 
| IF 1eC42!6]42 THeN 01201000 
@: IF STRM THEN 01562000 
eee teens A EGIN CHECKNEXT¢LF [a6 THEN O ELSE Ts 903000. ena eee Oe ee 
Cr GO TO LES 01504000 
@. END ELSE 01565000 
nn BEGIN CHECKNEXT¢IF Teg THEN O ELSE JJ 2 01566000 $e ee: 
‘cae GO TO IF REALCOTRM)=O0 THEN «4 ELSE LE; 01367000 
@: ENC ELSE 01568000 
eee escent ha sacar yeasty ae ne, Renesas scan he gg NT NEE SN gti 2 eto cele Mesa lac tte face nS Sele 91369000 2 Aang: Sa ts race eae i 
’ DF INEINCINFOLI £2935) »o1el3488)))3 0159/0000 
@: IF B47 THEN 01571000 
Soe LF sO THEN STROOD (46:1 Jets GOTO LIS 01572000. 
to END 01573000 
@' L4s IF GENERATE THEN EDITINGC1e NCR) 01574000 
Nac Porches ae ae _BA7eFALSES Bes eee a IGP OO nan eC tae et ee U 
1 IF BOOLEANCDEBUGN) THEN WRITECFOUs DEG» "CHKNXT™*NXT*IFX)3 ENOS COMMENT 0e01976000 
@ |. END CHECKNEXTS 01577000 
js REAL PROCEDURE == BALABALACI)D$ VALVE [3 REAL If FORWARDS —sss—s—s ss 7B000 Cl EA een ter 
'6 REAL PROCEOURE BRACKETCCLOSst0T)3 01579900 
ee COMMENT owe eateFeovreeeet oat eeaenet eee eo peteentetet eae tenet eneaveeeanegea 291380000 
ti‘ Sé;éCOCésSS THIS PROCEDURE PROCESSES A STRING OF ALGOL LANGUAGE ENCLUSED In A 01981000 7 Reet ee bs ee 
Ng tPAIR OF BRACKETS OF PARENTHESES. 7015862000 
@ x : VALUE OF RESULT? 301583000 
ayo Ot THE GIVEN "3" OR *)" NOT FOUND» STOPPED AT ")"» "]" OR A 303564000 = Sic patie 
a2 H SEMICOLUMA 04565000 
@ » 2 1: STOPPED aT "ENDS OF@*FILbe 201346000 
aq STOPPED AT "BEGIN". Bio Nw at ae OL OE OUG Be eStore 
2 3 4t THE GIVEN *")" OR *)* WAS FOUND AND PROCESSED, | :01588000 
@ ' 5: STOPPED aT "ENO". 301289000 
27 See ieee neta ae Geta erent SS we Ce FADD (OAs 22/O8- emeres 101590000 a ete 
; Eero rereeer errr Terr eee Te eee ee eee ee TCR eS ee ee ere ee ee ee aeere: 
e VALUE CLOS*SEDTS 01592000 
ee Un ere IMENT | 22 | Opn I arte eeriremte °° C= 10 209 Ge Eee a me ee ae eee RIOT, >. 90) 6 ke rv 
Pe BEGIN 01594000 
@ REAL 13 01595000 
{i Saeco NCE RCN, 1-2 CORRE ens 2 NUNN Pa Re Serene Caen tere I ele ie ee eer eee Se 91896000... a ee, tee ee ee 
TF BOOLEANCDEBUGN) THEN WRITJECE OUpDEGy,"PRACKT"sN\XTsCLUSsEDT)3 01597000 
@ IF BOOLEANCEDT) THEN 01598000 
De ce aera aE aie a Hn tanta or hc tticercs <A GIN a li he he th fe ecient he oa ee De eee OL OOOO 2. Pe eer ae ete 
ia IF OF INE THEN 01600000 
@ IF CLOSs"J)" THEN IF Cyl9}«C43:2)]40 THEN ERRDFNeL$ 01601000 
PY iactias ee alata ailes saint yetea hh NOL. SGANCY).“ THEN: 8 .. ch tains eet tie SA et as Saal 01602000 
: IF GENERATE THEN EDITING(C1el)3 01603000 
@' ENDS 01604000 
4 BOLE ANCBRACKET¢BALABALACO)) THEN = OS 000 
3 BEGIN ERRORS GO TO LE ENDS 01606000 
@ | IF NXT,£36%6]4CLOS THEN 01607000 
? BEGIN, % ERROR CONDITION. OU HOBOOCO 
IF DFINE THEN ERRDFNe1 ELSE 01609000 
eo BEGIN CVC 9] el36%6)¢15 ERX*1 ENDS 01610000 
ra St ee OE DA i Ge 2 a ee eee eet UO O00. 2.2 at: 
END3 01612000 
@ IF NOT SCANCL) THEN 01613000 
ss SN eee ne oe IF GENERATE “THEN EDITING(191)3 BRACKET#4$ 01614000 
LE’ END BRACKETS 01615000 
@ » REAL PROCEOURE SUBSCRIPT3 01616000 
i COMMENT e e 01617000 _ _ 
- THIS PROCEOQURE PICKS UP THE SUBSCRIPTION IF “THERE IS ANY. 101618000 
@ I VALUE OF RESULTS 0: NO SUBSCRIPTION IS FOUND. 101619000 
ef it STOPED AT "BEGIN", 101620000 __ 
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®@ e 
: : STOPEO Al “Eno, 01621000 
r : £ THE SUBSCRIPTION IS PICKED UPe #01622000 @ 
ee ee me og Cg FAG 04722768 ee ernnnns016g3000 
i Wg aie’ io a6 WW. 10 6.60 00200 a a O06! 0B ie. Oc. 8 NOLO a 0b 88 ne belle @- Ries eb eie 6 eo 00.6 ere e-ecesgeer 1924000 1 
@:: BEGIN 01625000 2|\@ 
a 5 127 \ SD Se eee eee ee ee eee 01626000... x2 ce 3 
‘ LABEL LiseLé2ol3eLEs 01627000 4 
e: IF BOOLEANCDEBUGN) THEN WRITE CFOUsDBGs"SUBSPT™sAXT )3 01628000 |@ 
Oe ee ee ee UR Ne ee i he ee ee OO O00. ay. as a ee 6 
7 j Lit BEGIN SUBSCRIPT*13 GO TO LE ENDS 01630000 7 
@ ic IF NXT.03626)5"C" THEN GO TO La3 | 01631000 | 1@ 
i tere Pence et ee ATE IF CLeCHECKNEXTC8"("C3624216)))38 THEN wt Sol aes ne NOBODY pce cee ss y 
10 BEGIN 01633000 19 
ee: Las IF CI@BRACKETC™I%51))=4 THEN 01634000 "0 
BEGIN SUBSCHIPT©83 GU TO LE END ELSE : 01635000 2 
13 IF NOT BOOLEAN(I) THEN Ieas 01636000 ie 
@« END ELSE 01637000 \@ 
Mi ebb la alge there, gts odd ty po th & Postns cnt ced © Oe Ne Sf sei acca Nh Sy eee ee ee a eats, 5 Oe I et Ba ed See ht He 
s6 IF NXT,042%6]=4 THEN GO TO Las 01639000 has 
@” COMMENT ILEAGAL ITEM FOLLUWS THIS SUBSCRIPTED [0, PUSSIBLE ERRORS 01640000 7@ 
We staeet deneruadtenatar, leona Sern. ontnedtee ue DR IDE) Were SP esi BOM Nee te El Si Saf ae ties i oh eS a OOH OD es cor dali, arate Sea ie ee oe ee a ee, ek by 
bs IF 182 THEN CV[E9JeL3626)*ERKe1 ELSE 01642000 "9 
@” BEGIN ERRORS CIL9),036%6)¢1 END 01643000 = L1@ 
Fe Rar A ate Sag IR af teen SUE We PO [Baal Sa Rak ee ae ad OM UG ON (SITS ns, o led ea 21 
Fe LE’ END SUBSCRIPTS 01645000 : 
e P REAL PROCEDURE PARTIALCP)3 01646000 l®@ 
A oes, cares WOMMEN T - 6 sic ey wie ob San ee iy ep Bap 6 WW wig Wire ielyalb bcy Scaehn a ee Oa ep gle eh we pare ea eee pO OUT UO0. Coe Sonebond ine te ge _. _ 24 
Bs 3 THIS PROCEDURE SCANS FoR A PARTIALTFIELOD IF P*1i» OR SCANS FOR A 701648000 7 
@» SCUNCATENATE@FIELD IF P¥t. 101649000 1 @ 
7 VALUE OF RESULT: ae ee ee Oe eI ee em of, 1-2 0 l'e 5) 0 See ONT ee ET Re NS ee ea ae ae es 2 
8 : Q? A RESEVED WORD, 201651000 i 
& : 1! THE END@OF=FILE. 201652000 21@ 
Mn BY A SPECTAL CHARACTER OR OLGT Te 02 we HOT O SSO 00) F So ein ee leo! a 
1 : (NOT SCANNED), 101654000 a 
@ ' 3% THE RESERVED WORD “BEGIN'»s CNOT EDITED). 101655000 @ 
ae] A SUBSCRIPTED IDENTIFIER, A OOO nc ce 
| : “5% THE RESERVED WORD "End. CNOT EVITED).« 301657000 3 
eo: t 6! A SIMPLE IDENTIFIER. +01658000 1@ 
Peer oA 83 THE FIELD IS PRUCESSED., ss a 1G 590NO : 
By t wemmewem J, Ce PAO 04/26/68 emer ="501 660000 ig 
e im Wig 0000.0 e600 000 8056 6 0 0 00'e ok8 bk wea 80 0 6 WON w Oe 0.6 056 8b We 8 8 we 000.0 ee eecee ek OL OO1000 34@ 
; so NO ee crs mrss ae OD a en eae et hc ad ie a oe ee OP OR POO OS cet = : 3s 
| REAL P53: 01663000 . 
@ |: BEGIN 01664000 | @ 
Prensa nomen mente. 2 :) Chote Pn, Oh Raat a el De ne cn ial tet a oh OG S OOO std oe 43 
| . LABEL LislL2eLsslL4eL So lLOrlL7 ol Sal FsLEs 01666000 ; bs 
& IF BOOLEANCOEBUGN) THEN WRITECFOUsOBGs"PARTIL"sNXT PP); 01667000 : \4@ 
BeIF BOOLEANCP) THEN 2 ELSE 3s 01668900. ee ‘ 
COMMENT ~ LOOKING FOR "€" FIRST 01669000 25 

Ov IF EUF THEN 01670000 @ 
ECB EEGIN PARTIAL ©1IS GO TO LE ENDS LOO : 
“IF NXT,C3686)2"(" THEN GO TO La; 01672000 ie 

@ IF NXT,C42861720 THEN 01673000 : 1 @ 
BEGIN % POSSIBLE ERROR» THE "{" NOT FOUND. 01674000 _— ‘ | 61 
IF DFINE THEN ERRDFN©L ELSE CVCL9),L 366 )FERKXElS 01675000 5 

@ PARTIAL#2s GO TO LES 01676000 . 1®@ 
Aetomens cede, aU Wn oot ae Se el ee od re eS 2 OOOO neh 54 
IF CEGHEGKNERT CABS TPE 360029811328. THEN 01678000 | e ea bs 

@ - 01679000 oh hgerieas mee » ba® 


01680000 


@| q 
| IF DFINE THEN ERRDFNeL ELSE 01681000 
oe BEGIN ERRORS CIL9).636:6]¢1 ENDS 01682000 q 
= pe ope tnasen sR Dy ieee PARTE ALO TS GOT ge O49 OE9000 ee ye 
| | ENO : 01684000 
@: Las IF NOT SCANC1) TREN 01685000 /@ 
ee F GENERATE THEN EDITING 1,1)3 wn O01 OR6000. | 3 
| IF IT IS OURING EXECUTION UF A DEFINE* ANO THE "CL" WAS MARKED 01687000 ‘ 
@ |: NOT RECOGNIZED AS A PARTIAL“FIELUs NG SCANNING IS NEED3 01688000 /@ 
bo tambien. SDR ENE. AON: Ea Reels ON Oe nn Shoes ee PE Hes tpee eat OOS FOOO. cineca Seay aed 6 
" BEGIN 01690000 7 
eo: IF ERRDFNS0 THEN 01691000 /@ 
cote DE TOC VEO E492) 40 THEN 692000 ge topeacn at Td te! i 
BEGIN % CHANGE WAS MACE IN THE LEFINE,. 04693000 10 
e IF I#P*1 THEN ERRDFNE1L3 01694000 1@ 
Sho disse tet ae -RROF NGL te 9 oo al OW OO Oot ee Gk eh Peet es Ae 12 
ENDS 01696000 | "3 
& MAKE SURE THE 8I1T INDEX IS A INTEGERS 01697000 4@ 
fs WO cient Re EIR TEN 0 TG ge a De St ee OTOP BOOO se eo ee ew ee Ps 15 
B47¢P>43 01699000 ‘|e 
rd] IF NXT,04226]50 THEN GL TO Lg 01700000 ty 
co eee netted CLE CHECKNEXTC1)) #42 THEN. —& NOT A DIGIT. 0 On701000 ss ee OR ie et ees ey I 
L73 BEGIN % MARK ERROR, 01702000 Mi 
e IF DFINE THEN ERRDFNe1 ELSE 01703000 4 @ 
wee nome [82 THEN CVE9) ef 36tOJeERXeL ELSE SOS IORI Os il cite Gath teehee Ms a By ces ee odssinate? os ett ee A 
BEGIN ERRORS CIL9],036%6]¢1 ENDS 04705000 24 
@ IF CPARTIAL*BRACKETC"I",0))2%4 THEN PARTIAL*B3 01706000 231@ 
wren TE fn ene GAL OF OOO. occ a cons een eee 24 
ENDS 01708000 1@ 
@ IF NXT,642#6]40 THEN GO TO L73 01709000 A 
8 ~WBI... TE. (PePeiten THEN 0 rtoggg 2 
2 BEGIN 01711000 a 
:@ IF NOT SCANCO) THEN . 01712000 29 
3 vvcwnman DEGENERATE THEN EQITING( LaNCR)S a zooo ia 
‘ END ELSE 01714000 a 
s@! IF OF INE THEN I*REAL(SCANCO)) ELSE FOURTY7(4)3 01715000 B2 
; CHECK THE "8" OR MyM; dbp Seite ete oe OIE BOO! oe Goi acento oe a A eR 33 
IF EUF THEN GU TU Lis 01717000 : 
@ | IF NXT=CI@¢4&CIF PFO THEN J)" ELSE "2%)( 36842967) THENOL718000 @ 
py erence GO TD LG OO rignon. Ss eee 36 
ey IF NXT,€C42%6750 THEN BEGIN I*23 GO TO L? END 01720000 7 
@ IF CL€CHECKNEXT(1))48 THEN GO TO L73 01721000 4@ 
Mo EGE NOT SCANCL) THEN ee Mees ae ies a * 01722000. eee coat 39 
y IF GENERATE THEN EDITING(1lol)s 01723000 ‘0 
@ |: IF P>O THEN GO TO Lé6s 01724000 a 
eof ete PARTIAL¢83 | 01725000, . 4d 
LE: B47e+FALSES 01726000 4 
@ END PARTIALS 3 01727000 4@ 
REAL PROCEDURE —« STRMPROCDURS FURWARDS O4728000, | os 
: REAL PROCEDURE CONCATENATES 01729000 6 
 ] COMMENT POP eH EP EM HEHE OH EE HAH ASEH D OEM HEHE DEO o oO ORM OEE OH OREO ee HOeneeeneene D1? INOND +7 8] 
' THIS PROCEDURE SCANS FOR THE PART STARTING FROM AFTER THE "@" IN 301731000 r 
tA CONCATENATE EXPRESSION. : : 201732000 a ; As 
@ ' VALUE OF RESULTS : 101733000 fe 3 : sf @ 
re eee eer aan a ere OP ORO oh, Me oe ee coe 51 
: 1? THE END*8F*FILE, 301735000 5 
@: t 2 A SPECIAL CHARACTER OR DIGIT. 101736000 sj @ 
i _ $s CNOT SCANNED), — 4017370000 5 
: 3t THE RESERVED WORD "“BEGIN®. (NOT EDITED). eras 101736000 ‘se : : 
@ | : 4t A SUBSCRIPTED IDENTIFIER» 101739000 | «| @ 
: ’ 5! THE RESERVED WORD "END"s CNOT EDITED), 801740000 | a a | a 
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e & 
: 6% A SIMPLE INENTIFIERs 201741000 
: Bt THE CONCATENATE ERPRESSIUN IS COMPLETLY PROCESSED. 201742000 & 
Pe [een Ra A ae Pe NOE ON ot ra ee mrecreree Je Ce. PAD 04/26/68  zaeneenni04743000 ee ee ee 
Saher eee eee aePon senate aha eee ees nen toons eenteenneceenesevrenesnaeee tr Gil 44000 ! 
BEGIN 01745000 21@ 
ee sie aad REAL Is Sear ae ae O1746000 a 
LABEL LisL2eL 3eL4eL5eLoeLes 01747000 4 
IF BOOLEANCDEBUGN) ThEN WRITE(FQUs08Gs"CONCAT"# AXT ); 01748000 ‘|@ 
relat te Sichioccl tng teed ct Se ane salon a en Sop Oo oY PAO DOU acne Gases 6 
Lit BEGIN CONCATENATE*L3 GO TO LE ENDS 01750000 ? 
IF BOOLEANCI¢CHECKNEXT(1)) THEN 01751000 |@ 
ie he SOLO See RPI oat re i ee he rule tal ee ete ey ENE PS OBOE. ee een 8 
IF OFINE THEN ERROFNe1 ELSE 01753000 10 
IF [=2 THEN CV(9].03636]¢ERXeL ELSE 01754000 @ 
Lae CONCATENATE*IS GO TO LES 01756000 by 
ENDS 01757000 1@ 
Deca ss delaga nd eet co ew F186 THEN GO TO Las OO ‘5 
ad IF 12 THEN 01759000 be 
@” BEGIN 01760000 "@ 
U8 es oe cen ee vas we wma NXT 2 £302675""" THEN BEGIN STRINGS GO 10 La eENDs 01761000... i 
ty IF NXT,C3686)="C" THEN 01762000 hei 
e 2 GO TO IF CIleBRACKETC™)"51))%4 THEN L4 ELSE Las 01763000 @ 
Baa cts Sat tents iBtabt om Gaiam NN gd TE NR ad lg eR EE BUDO Ocha, coon wird on aiden ot “a 
fe BEGIN 01765000 5 
@» IF NOT SCANCO) THEN 01766000 21@ 
sai al Ss alten Gipeenitweds TE GENER ATE HENS E DA TENG CheNCRIE. GOTO Lod. OLPE7000.. o. Moe ese, ewer 2d 
bp ENDS. GO TO L235 01768000 2 
@» ENDS 01769000 2 @ 
7 as : alate SET WOE A Ne cS oto ao Fa se et ON POO Oe, parasites axtens oan ber cease es 2 
8 BEGIN 01771000 ral 
@ IF NXTeC3686]2"(" THEN 01772000 1@ 
: ee ee voor GOTO IF CL + BRACKETO™) 512224 THEN L4 ELSE 123 03773000. .... EAS WEEE SEDC a0 
A END 01774000 ia 
Or IF 1810 THEN | | 01775000 1@ 
fa alias 0 TO IF (Cle*STRMPROCDUR)=8 THEN L4G ELSE L2s . oy776n00..._.. ae — ee ee eee ee eee _fs 
Pp IF 134 THEN 01777000 ad 
@: IF (IeSUbSCRIP1)48 THEN GO TC L23 01778000 1@ 
. pote tees ce ttl Ne ol BOR THEN GO Tu fr Salt as Se ON oh ae hee OE OO cos tk seas Gal lel Se et eee - 
f IF I*NXT.C3636]3"L" THEN GO TU Le; 01780000 bas 
oe, IF 15"," THEN GO TO L553 01781000 ® 
pe Cera IF NXT, €4216]80 THEN GO 10 423 01782 a rd 39 
I IF CL*©CHECKNEXT(4&","[ 36140!6]))=6 THEN ae 01783000 nl 
@ i: LS! BEGIN % NEXT IS A," PICK UP PARTIAL*FIELO 1ST, 01784000 1@ 
a ee eee LF NOT SCAN(1) THEN 04785000 —s 42 
IF GENERATE THEN EDITING(1e1)— 01786000 4 

@ | GO TO IF C1*PARTIAL(1))58 THEN Lo ELSE L2s 01787000 ad®@ 
: aie axa Bee nse ek CA 01788000 | See eel ee as 
“Ter GO TU IF C1©PARTIAL(O)I=8 THEN L3 ELSE L2s 01789000 A 

@ LEt END CONCATENATES 01790000 |@ 
REAL PROCEDURE FILLSTATEMENTS O1791000, | ae. : 
COMMENT COOH ROO RH HEHE HH ERR OH ERED DEH ESE Reema tehedeesHoereseseseseees dh P2000 be 

@: THIS PROCEDURE PRACESSES A FILL@STATEMENTs 301793000 «ol @ 
—--YALUE_OF RESULT! On6i SAME AS IN "CHECKNEXT® PROCEDURE, __t01784000_ a al 
8! PRUCESSED WITH A SEMICOLUM. 201795000 E 

e| mementos 5, 0, PAOD 06/19/68 BOF ="9™504796000 @ 
F Stren e sree resem e tenant rar arerateretesnt oececsretesesosreresesespeszg sees OlL 9/000 | ee 54 
BEGIN 01798000 65 


oars on) 
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IF GENERATE THEN EDITINGCIsNCKH)s & THE WORD "FILL. 01801000 


THIS ENTRY IN INFOC 8s *)3> 01859000 
NeCPeINFOCIFXef30sS]e1FX, of40183"13),0498) 91860000 


@ IF CI€CHECKNEXTC12)24 THEN 01802000 
Me sonnei setter once cytes VO oe. BEGIN _ sae sett lot care Lote) ce ase Mne con TOA OS ONG beat gs ote ee fg ce a te ee Sis 
) IF DFINE THEN ERROFNe1 ELSE. 01804000 1 
@» IF le2 THEN CVL9}.L361O]*ERX*1 ELSE 01805000 |@ 
| Stet oh Os ee BEGIN ERRORS CIO Sel 9616) et ENO Sn PB OB OOO ney ee a 
‘ LX13 FILLSTATEMENT*#I3 GO TO LES 01807000 4 
@ |: ENDS 01808000 |@ 
Oa Peds sale boticubdde gad ioc be ACIeSUBSCRTP TAG THEN GO. Tu lk Ky ops OPO OI000 od a er ok 6 
7 IF CI*CHECKNEXTC1))£0 THEN GO TO LX3 01810000 7 
‘a IF IFX#0FX433 THEN GO TO LXS & DFX433 IS "WITH", 01811000 /@ 
QE a ST RM@BOOLEAN(C2)3  J*CHECKNEX1(01)3 STRM@FALSES — -01812000..s—‘(asé‘(ié;t;iC;i<‘<CSCS 8 
” IF 182 THEN 01813000 
eo; BEGIN 01814000 
ee ee emer tae | a ice V2 SE Lend 1, eeeeeine sete aa aero ae menace ema mneameree “ECD eT, fe ean 
BEGIN 01816000 
@ |: IF NOT SCANCO) THEN 01817000 
Pree Se Aenea a oe St ee dl GENERATE THEN EDITING( Le NCRIE OI BOOO. 
ne END ELSE ~ 01819000 
eo” IF NXT.C3636]=""" THEN STRING ELSE GO TO LX} 01020000 
NEN cme 2 fea nla o ode CH Eeseces asp Tale scopy ea A) BN A pee a a a EE ng a el a oe eo Oe OOO), 
i ENG: 01822000 
@” IF 170 THEN GO TO IF BOOLEANCL) THEN LX ELSE Lx23 01823000 
el aatinel ec Daee een ue EP PBR KK TMEN: OU TO Lee a ee en OS BEOOL 
p2 IF EV£O),C18318)/"0CT™ THEN 01825000 
@xz Lx2t BEGIN 01826000 
i Se eee, 2! owe wKF GENERATE THEN EDITINGC Le NCR GO TO LXs 04827000. | 
j ENDS 01828000 
@ IF NOT GENERATE THEN STARTGEN? 01829000 
y venetian nvm nmnmnebE Oe Li Bt6Je3s EDITING ie1)3 = ON BRONOO 
TRNSFCHRCEVLOJ* EVLO] + 32 6eNCRENCR#3)3 01831000 
® FST¢43 EDITINGCZ*NCR)S 01832000 
peewee nee Oh oR CTE CHECKNEXTC48%s "0965423619228 THEN GO TO L34 01833000 
IF I®2 AND NX1,C3686]=5"3" THEN 01834000 
@ BEGIN Les"; 01835000 
Bea teat Sle OE tae, __IF NOT SCANC1) THEN See stele Oath el te iatole esti OL ROO 6... 
IF GENERATE THEN EDITING(1°1)3~ 018437000 
i IF I="3" THEN IB ELSE GO TU L&3 01838000 
ke Sa ise Sars Mech es otha owes e oo N DS GO TO LKI wise ee tt a el a O90 0 aes io ee 
“LEt END FILUSTATEMENTS 01840000 
@ REAL PROCEDURE STRMPROCDURS : 01841000 
Fae een eo ore TO NRT _COMM ENT 2.29 8 8 ROOM eee eee ooo ese met HFt Aas nt asorere teres ers Pred Hoeeese. 2 Q 1 8 42000 Pep cea are 
i : THIS PROCEDURE PROCESSES A STREAM=PROCEDURE“CALL STATEMENTe 301843000 
@ | ' VALUE OF RESULT$ O TU 6% SAME AS INDICATED IN "CHECKNEXT", 01844000 
A BETTE PROCESS IS COMPLETEG, = = 0845000 =— rks 
a 4 wmesesee J, C, PAQ 06/06/68 ==="="9"101846000 
e@ Femme canoer ee haere nee Hes eh eee ORO OMoenrererasetesederenerenecenses ens sd Mi GhlONG 
Le et ae: 504 ee BOO 
REAL Te Je Ns Be Po Xi 01849000 
e@ ARRAY ECO?8)3 01850000 
LABEL LieL2esLaeL del dSolLoeLorelL ole 01851000 
IF BOOLEANCDEBUGN) THEN WRITECF OU, 0BG,"STMCLL"seNXT)S 01652000..~”~”~—~CS~S 
) COMMENT FROM THE INFO@INDEX OF THE STREAM PROCEDURE IDENTIFIER» IFX 01853000 
QBTAIN THE FORMAL PARAMETERS INFORMATION. WHERE 01894000 
Nt ONE PLUS THE NUMBER OF WORCS OF THE ADDITIONAL INFORMATION 01655000 
@ OF THIS ENTRY IN INFOL*s*J» OR 01856000 
N® <NUMBER UF FOKMAL PARAMETERS> + 7) DIV 8 04857000 — 
e Xt ONE MINUS THE INFO*INOEX OF THE ADOITIONAL INFORMATION OF 01858000 
e 


@ 
=“(PeP.(40%88))3 01861000 
@ X¢IFX#Pt13  Je73 01862000 
oe ene et ee ee EC CHECKNEXT CGM CNT 262 42i61)1¢8 THEN gaagooo 
Lit BEGIN 01864000 
@» IF DEFINE THEN ERROFNeL ELSE 01865000 
Pc Pies th os aco GoPets ew YE ee ete FI ,fiGisleFRXel ELSE ooo 
4 BEGIN ERRORS C1l9),036:60)¢1 ENDS 01867000 
@ |: IF BOULEANCI) TREN STRMPRUCDUREI ELSE 01868000 
6 cf lal 
ee Ste elie Datermtno ms ( EN ee OP BBO OOO Date to 2 
7 IF STRMPROCOUR*BRACKET(")",0)3q THEN STRMPROCOUR*S 01870000 
@: ELSE ELSE STRMPROCOUR¢I; GO To LES 01871000 
: Sanne "YY, 7,7, eee perth see 
No Beis % B REMINES THE FACT THAT "(" WAS PROCESSEDe 01873000 
r a L2: IF NOT SCAN(1) THEN 01874000 
cept eae ial oh or oe o> EP GENERALE TREN E LIING(C191)3 _ Seeetereererneg” 2 = -11° 01) Sen ee oe a 
Ha STRM©BOOLEANC2)3 T#CHECKNEXT(1)3 STRMEFALSES 01876000 
@ IF BOOLEANCI) THEN GO TO L413 01877000 
“LL _____. GOMMENT CHECK THIS ACTURAL PARAMETER AND SEE IF It 15 CALLED By NAME OR Meche or th AE = 
a BY VALUE3 01879000 
a IF (JeJ+1)28 THEN 01880000 
fener a. pe IN i a a a es a te yO BE ONO cet ay ase 
ie ; IF (Ne*NW1)S0 THEN 01882000 
@« . BEGIN % SHOULD HAVE NO MORE PARAMETERs 01883000 
ee caeqggleath Sepia te SE A EN ne et a ee Stee Sas a OVO BODO oa yn oe 2 oe 
2 IF GENERATE THEN EDITING(1+NCR)$ GO TU L413 01885000 
@ 2 ENDS = PeINFOLCKA*X+1),0353599X,64098))3 01886000 
Ms ota ee sovvnas oR ADS TRASECHRCBePs7edo oo ro . spite cae Sele, 5 he 
IF NOT BOOLEANCB) THEN BEGIN Bel; GQ TO L3 END; 01888000 
© IF 833 THEN GO TO L43 01889000 
y _ COMMENT THIS ACTURAL PARAMETER IS CALLED BY VALUES —__ 01890000 a eat ee I, 
q IF 142 THEN 01891000 
& IF GENERATE THEN EDITINGC1sNCR)o 01892000 
: onesies osu dE BOOLEANCI CB ALABALACTéN,"{3614256])) THEN GO To 11501893000) 
pI IF LeNXT,(36t6)="9" THEN GO TO La} 01894000 
@ IF I=")" THEN GO To L73 01895000 
ages OTOL Sac octet On sols - _ 7 __ fs 
COMMENT THIS ACTURAL PARAMETER IS CALLED BY NAMES 01897000 
@» L4s IF DFINE THEN IF LLF20 THEN GO TO L3 ELSE 01898000 
C eee SET eT A vn BEGIN STREO*CT»Coriileds GO TG L45 ENDS 99000 Ne nates 
IF NOT GENERATE TREN STARTGENS 01900000 
en ECC]eEVLO)S 01901000 
Re eel —vvnneene EF NERDS THEN TRNSFWOSCELLISEVELIOCNCRY22063619))8 01902000 
EVCOJeMPOINT"S EviileOaMERC™C 183121793 EDITING(1#6)301903000 
eo: EVCOJ*EL0); 01904000 
eg ce stn chad " wane NC ROS THEN TRNSFWOSCEVELISE LL I+ (NCR4+2) [3689 3 9Q Sen eee x 
| EDITINGCL+NCRIB 01906000 
@ Last IF 184 THEN 01907000 
C4 
BEGIN 01909000 
®@ IF I=2 THEN 01910000 
F_N C3636)="»" THEN GO TO LS Sé OL9IL000  — 
IF NXT,£C36%6]5")" THEN GO TO L63 01912000 
@} END ELSE | | 01913000 
aE LO CHECK NEXT CORR 9£9614216)))8B THEN 944000 
L53 BEGIN CCO*CCS NCOeNCD; 01915000 
@; IF OFINE THEN IF LLF20 THEN GO TO L3 ELSE 01916000 
P IN STREOs0- jijei; GO 04917000 Er Met ee 
IF NOT GENERATE THEN STARTGENS — 01918000 
@; EVEOT+ORM IMC 16842I6]5 FSTe4S EDITINGC191)3 01919000 
@ 
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@ 
| END ELSE 01921000 
Qe. IF 152 AND NXT,£3636]=")" THEN 01922000 
een ee LO. uw... BEGIN CCO#CCs NCOeweDs 8 Oa 82000 
1 IF DFINE THEN IF LLF20 THEN GO TO L3 ELSE 01924000 
@: 7 BEGIN STRCO*0].tuatije1s GO TO L7 ENDS 01925000 
te ae ru NOT GENERALE THEN STARTGENS i HOOD. 
* EVCOJ*©OR")"L1BF4286)3 FSTe4; EDITING(1°1)3 01927000 
@: L7t IF NOT SCANC1) THEN 01928000 
fag Renae ATR IR Le TC wb jhitone EA GENERATE TREN BOTTING CL 9S yp li edn OPV 29000) oe ee 
v STRMPROCDUR*8S GO TO LES 01930000 
@: ENCS 01931000 
Bide cet oag co eet an ERRORS: CLC Ts SO UCD Ec Be neces tcp ee pt ee yl a ADA ZOOO: © oie 9, wes lees 
IF BUOLEANCI) THEN GO TO Lys 01933000 
 ] IF BOOLEANCI©BALABALACI&","£3624226})) THEN GO To £1501934000 
OE hs eS ot athe costgae td _-LF_LenxT,036s6)"9" Then GO TU LSS oo 95000 
IF 187)" THEN GO TO L63 01936000 
@ I*23 GO TO L13 01937000 
woe FET END OSTRMPROCDOURS Ot B000 © = sii 
“REAL PROCEDURE BALABALACI)3 01939000 
@ COMMENT LoS eS See See 8 Ot See ee C8 e846 88 OOS Oe M0 9a Tee a9 ee 6.64/88 49 6 b-0'8 6 8 E 01940000 
Sausone THIS PROCEDURE PROCESSES A STRING OF ALGOL LANGUAGE UNTIL THE 01941000 
SNEXT IS A "3% ")","REGINGS "END" OR SEMICOLUMN. 201942000 
@: ' VALUE OF RESULT? 0% STOPPED AT A "]"%,")" UR SEMICOLUMN, 01943000 
Pc hs Ewes ee ees, STOPPED AT ENDSOPSE TLE FO PSMAONO .. so: 
| H 3% STOPPED AT "BEGIN, 101945000 
@ x : 5S: STOPPED AT "END", 201946000 
eee Hes> 2 sort ash Se ieee cite nee ees cee eee ee ead gC PAD OAS 22/468 eee ewenso1947000 |. 
k Fee merece ree re renter ener r ener tered eestor t ere renereerseneresentevesesreeet Ol 948000 
@ VALUE 3 01949000 
Be ec eR ag Baca Dt a a Ie SS Sos wee NG ONS okie aan 
2 BEGIN 01951000 
>@ REAL STOP; 01952000 
spo pa diates ie * tt A BE: oon acl Linh Cok Se G ie ees ly et St Br OLIGO OO coccttemuire acs 
ee a LABEL N13 01954000 
s@» LABEL C1sC23 01955000 
Octet Aaa se cceay ANDES oe, 2 on WE WE a eg ee ath en Ub on ean ata cate oo DL OSB ODO... 
34, LABEL WS4eWSo23 01957000 
@» LABEL WP1eWP2eWP3> 01958000 
Pee aici ates LABEL | WELo NCOs eedetin cs Se, SOLIS IO OO! + 
37 IF BOOLEANCDEBUGN) THEN WRITECFOUs DRGs" BALABATONXTS 1 QR 01960000 
@ + IF CSTOP*1,£3686))20 THEN Ielel42t6)3 01961000 
ee PF LEM THEN GO TO WS1 ELSE &% START TO PICK SUBSCRPT,01962000 _| 
‘ IF Is6 THEN GO TO WPL ELSE & START TO PICK PARTIAL: 01963000 
@. IF 1510 THEN GO TU WS2s % START TO PROCS STRM PR,01964000 
________ COMMENT THIS IS THE ENDWOF*FILES 965000 
Lit IF EOF THEN 01966000 
@ 4. L23 BEGIN BALABALAe1s GO TO LE ENU3 01967000 
ee THEN O19BBOOD it 
IF IFX=DFX+31 THEN 01969000 
® BEGIN I*FILLSTATEMENT? GG TO WP3 ENDS 01970000 
COMMENT THE NEXT CHARACTER IS A DIGITs tO 
L33 IF I®NXT,£428630 THEN ; 01972000 
e Nis BEGIN NUMBERS GO TO WC1 ENDS : 01973000 
H PECIAL: Ch ER} ees 9 
IF 152 THEN GO TO Wis 04975000 
@ C13 IF I€NxT,0€3626)]2"5" THEN GO TU LES 01976000 
sa re i BE STNG Di a ee OT OOO. 
IF 18")" THEN GO-TO LES 01978000 
@ IF IsSTOP THEN GU TO LES 01979000 
IF _18"2" THEN BEGIN PERCENTS GO TO Li ENDS 01980000 
] 
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T 
IF I=""" THEN BEGIN STRINGS GU TO WPL ENDS 01981000 
@ IF ITe"c" THEN 01982000 
pe eee oe) eee oS --G@C_ TO IF BOOLEANCTeBRACKETC")"s1)) THEN W2 ELSE 03983000. sedan enegieime cht en te. cops 
@ | IF I=4 THEN WP1 ELSE L3s 01984000 
e@ IF Is"C" THEN 01985000 
GQ TO TF BOGLEANCLeBRACKETC"” J™e1)) THEN W2 ELSE 133 01980000 _—__- Ie ee a ee 
IF ls" THEN 01987000 
@ IF DFINE THEN BEGIN DFINEGUTs GO fO L1 END ELSE 01968000 
wane nn GOT 2g eep9g 
IF 18"," THEN GO TO Ni$ % MUST BE A DECIMAL POINT, 01990000 
e@ IF Ils"@" THEN GO TO N13 & EXPONENT, 01991000 
Hiei eit aei eto Ne SNR THEN 225-2. Be Eig ga a Pa a OO oh ret ok ee Re 
C2t BEGIN % POSSIBLE ERROR, 01993000 
@ IF OF INE THEN EKRDFNe@d ELSE CV(9), (3626) +ERXe13 01994000 
Ei NR TE Aaa ae Stu ace IN tang ee ee sais et A OSes ot oe a 2s, an oy cee 
de IF NOT SCANC1) THEN 01996000 
@ “i IF GENERATE THEN EDITING(191)4 GO TO L13 01997000 
wm COMMENT THE NEXT CHARACTER 1S A LEITERA 2 enc 
iol wit IF BUOLEANCI©CHECKNEXT(1)) THEN & FORCE TO SCAN, 01999000 
@” wet BEGIN BALABALAeI3 GO TO LE ENU3 02000000 
Wee eee e, vast 2s eset ESO TAN GOT OR cae rede coe ramen ei ato DOO LOO a oe 2 sae dreds Sue 
is IF I®2 THEN GO TO L33 02002000 
@» COMMENT PICK UP THE SUBSCRIPTION IF THERE JS ANYS 02003000 
enna 4 THEN 2% THIS ID may. BE FOLLOWED By £ oj,  =o2004000 
be WSit GC TO IF (1*SUBSCRIP1)=8 THEN WP, ELSE wP3; 02005000 
@» COMMENT THIS IS A STREAM PROCEDURE CALL STATEMENTS 02006000 
Pirelli ok Sule tnh ate TNO VMEN i ee cae coe oe Se Sl Se ODOUF OOO. ou... epaheee este Tce Sintra SI leaTewe Satna canes = 
pe WS2t GC TO IF CI*STRMPROCOUR)=8 THEN WP1 ELSE WP33 02008000 
@» COMMENT PICK UP THE PARTIAL*FIELO IF THERE IS ONES 02009000 
en Cm ct 7 
bs IF I*nxT,04286)sU THEN GO TO 43 02011000 
@» IF 154 THEN 02012000 
ce LNT £3616] 2" 0" THEN GO TU We ELSE 3000. = sssi(i‘iéC CO! 
IF Ie"a" THEN GO TO wCa23 02014000 
@ IF CI©CHECKNEXT( 48", "C3634216)))28 THEN 02015000 
: se SpMinse a teers OWRD, Bas —BEGIN & THE NEXT IS AM", UU 202 6000 ieee ROR wy tec hae egy awh ae a ca eis fe eee fe, he ee 
IF NOT SCANC1) THEN 02017000 : 
Oe IF GENERATE THEN EDITING(101)3 02018000 
. wt ctr ECT OP ARTIALCIO)S6 THEN GO TO WOLs pees ie OOD O00 oa icant 
‘ ENO ELSE 02020000 
@ : IF 182 THEN 02021000 
a ee eines ee LF NXT 403686] 2"8" THEN GO TO WO23 02022000 . 
‘ WP 33 GC TO IF BOOLEANCI) THEN wW2 ELSE IF [#4 THEN WS1 ELSE02023000 
@ IF Is6 THEN WP1 ELSE L135 02024000 
___ COMMENT PICK UP THE CONCATENATE"FIELD IF TrERE ARE ANYS = 02025000 aig nae eee Nee eA 
WOL! IF EOF THEN GO TO w23 02026000 
@ | IF NXT,C3636)8"&8" THEN GO TO WO23 | 02027000 
Ces A, oa Baer, -—__1F_NXT,(4236)80 THEN GO TO NIA Oz B000 Day pia ee I Neate 
IF CIeCHECKNEXTC4&"8"{ 36142926)))58 THEN 02029000 
@ |: WO2s BEGIN 02030000 
F NOT SCANC1) THEN OSL 0008 og ote eS at 
IF GENERATE THEN EDITINGC101)3 | 02032000 
i IF CI®CONCATENATE)®8 THEN GO TO wCd3 02033000 
tp bee tee ee ee a: Ba Se te hue ae AO NOOO Ue, thet Be 
GO TO wP33 02035000 
@} END BALABALAS 02036000 
R UR TAT MIN ig es RUST OOO es 
R COMMENT Conse ec et eee een see canensrereterereneseertercacsereeseroeserences e02038000 : 
@ m4 THIS PROCEDURE PROCESSES THE ALGOL LANGUAGE AND STOPS AFTER A 102039000 
102040000 
& 


| : VALUE OF RESULTS Of STOPPED AFTER A SEMICULUMN. 02041000 
° : 1: STOPPED Al END*OF=FILE, :02042000 ¢ 
SBE todo en feck tate a aes, Jetretenions gemiet SN Loe " Pea eee OE 10-0 010s a ee re ec ne ae 
‘ ’ 5: STOPPED AT "END", 302044000 
@ | ' moewemmnm J, 0, PAD 05/01/68 enna 3 92045000 2|@ 
A Deca e errr eek ee es © ee ee SAGE oor sees ovorerereoatosarecoveceoresonsseees 02046000 «= 3 
a BEGIN 02047000 4 
@ |: REAL 3 02048000 |@ 
i mates eT ante t ee ele: Sc sate I PES oe ee eel ts ot WOON OOO... cece: ees) ener 6 
7 IF BOOLEANCDEBUGN) THEN WRITECFOUS0BGs"STATEM"*s NXT) 02050000 ? 
@: IF NXT,C3686)2"35" THEN GO TO Las 02051000 /@ 
[® an DE BOOLEANCI©BALABALACOQ)) THEN = 2052000. pet es Nh een 7 
BEGIN STATEMENT*IS GO TO LE ENDS 02053000 10 
°| LF NXT, C3626]2"5" THEN 02054000 @ 
IF OFINE THEN ERRDFN©1 ELSE CVE9) C3686) CERXe1; 02056000 "3 
e ' IF NOT SCAN(1) THEN 02057000 @ 
ee oe ate ve GENERATE THEN FDITING(1e1)3 GO TOLLS —__ 02058000... "5 
iy ENOS 02059000 "e 
eo” L2t IF NOT SCANC1) THEN 02060000 i" 
ks Bi nie ee one GENERATE THEN EDITING tele 6 000, a ac a Pas at ee ee re 
LE END STATEMENTS 02062000 1@ 
] BOOLEAN PROCEDURE SKIPUNTIL(CH)3 02063000 20 
P WH . COMM ENT fe PPOM EL CEE EEE ES SLES OEE TEESE ORED SOO eR SHEE OES SOO 0-0 9-0-9 6-9 00-0 OL UO 4000. Tne mre mente ae a tes a eae se mei te ne Ae ten a ee a 
2 : THIS PROCEDURE SKIPS UNTIL THE GIVEN SPECIAL CHARACTER "CHW, 02065000 i e 
@» : VALUE OF RESULT: TRUEs "CH" NOT FOUNU, :02066000 29 
2 ed Divi deat. Selita spaced essai unk toa EE SE NOME ME go 5 te I oh ME a EN SOR POCO. wus? edadew eae Nahe chee Pasa, SN 
ke : 3% "BEGIN", 202068000 ‘e 
@ x ' 5: "END", 302069000 a 
8 lO re ee OR eee lee mieten ee ee te Cy PAD OMs25/68 eowmmnmens 92070000... pi ena ree oe nl? 
2 3 PO eee OPO Hee ent H ee Heed eee eee eH EHEPeranteraraeatecsenecseresneneescsee es OLeU/1000 
:@ VALUE CHS 02072000 
3 penn RE A ee Oz apon 
Pe i BEGIN 02074000 
s@~ REAL 13 02075000 
nee Ar RN eT 0: | Ae PP 9 LO ner eee eR NY ee nn M2976000 2 
al Lit IF ¢(LeCHECKNEXT(48&CH[36242:6]2)=§ THEN GO TO LES 02077000 
@ IF BOOLEANCI) THEN 02078000 
Pn eee BEGIN SKIPUNTIL©SQOLEANCII3 GO TO LE ENDS 02079000... eRe ene ane Re eee . 
‘i IF I42 THEN GO TO Lif 02080000 ia 
@ IF NXT.C3626)5""" THEN BEGIN STRINGS GO TO 41 ENDS 02081000 4@ 
Pe teas PO Coens Ante digs cay plea _1F_NOT SCANCIF NXT,C42t6)34 THEN 1 ELSE 0) THEN 02082000 _— Bile AE Eh aa ace, in Oat Pr ot ee i 
’ IF GENERATE THEN EDITINGCIsNCR)F GO TO L13 02083000 40 
@ |: LE? END SKIPUNTIL3 | 02084000 a1 
2 PRUCEDURE —_ BUILDEFINES 02085000 bi 
| COMMENT Looe rere ere easter eeencateretansrereereetenneernseeerseseneer ens GaVHO000 ‘ 
@ $ THIS PROCEDURE ENTERS a FIRST LEVEL DEFINE DECLARATION INTO THE 1302087000 a®@ 
sINFOres*) AS WELL AS OF SK=FILE, INSIDE THE DEFINE BODYs EACH "re WILLsO 08so0o0 M9 
tSTaRT WITH A NEW RECORD AND THE 9TH WORDe BITE44!13 INDICATES THIS "E"t02089000 ‘6 
@ s1S QUESTIONABLE TO BE USED AS A PAYIAL*FIELD OR CUNCATENATE@FIELDe 102090000 7| @) 
STRE BIT INDEX WILL BE CHANGED INTO 47 MINUS THAT INDEX IF THE NEXT IS 202091000 7 ; 
tA ay", a : 7H 102092000 . 
@k :  mewememe 54 Ce PAO 04/27/68 wennnen§02093000 | 1@ 
st Lavon en aerarneenteonnenresescbactebevocscesvenngtetetoe eer eenenane 0 0 e2 02094000 ; nie SI 
: BEGIN 02095000 5 
@r QWN INTEGER 1C3 % CURRENT ADDRESS OF DcIC#*l, 02096000 sy @ 
. OWN INTEGER BB3 % NO» OF BLANKS PRECEEDING BUILDING DEFINE.O2097000 54 
6 OWN INTEGER LST} % THE CHRCODE OF THE LAST CHR EDITED. 020968000 65 
@ &: OWN INTEGER AVC3 - ® NOs OF AVAILABLE CHRS IN DCIC#),.. 02099000 4 @ 
ef STREAM PROCEOURE DFERCF EB)? Sta 02100000 5 
® 


| 
| 
| 
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@ 
BEGIN 02101000 
@ LOCAL NC3 02102000 
Nat Pica DLeFs  DS"26 LIT"XXXAXXXx NEFINES FOLLOWING "3 = =029203000 20 
(r OSeL IT" "3 FeDls OSe11 LIT" "; SleFs DS4#9 WOS? 02104000 
eo: BSeB LIT™XXXX"3 02105000 
B Pees eB tle ea ea rees oo SEES SI*eST+2s DieL OC NCS DISDI+75 BSeChKRs — 02106000... . 
4 DIeFs DpSeNC CHRS DSeLIT*""3 Co*el 3g LIT” ARE IGNORED ."302107000 
@: END DFERS 02108000 
: _ PROCEDURE oO EDIT COPONC DS ae Sas Pn Parente Q2109000 eps PS gener tonto aS + 
af COMMENT PHC E RTH HOE HHReOHTAaHPeeHRHOHoEHFHeHTHM OR eteHoeseet eee Hee eoe ae eee? eee 202110000 
@:: $ THIS PROCEQURE EDITS THE 1ST LEVEL FEFINE DECLARATION IN DcI£*J.e 802111000 
C(t TAS IS SO CALLED "BUILD THE FEFINE™, RRC TORS ES UE EEE eA Gal wate neecote ieee. 
0 sEDITING OPERATIONS: 302113000 
@' : QOP=0: SET "NC™ NUMBER OF BLANKS. 02114000 
to OP ELS TRANSFER "NC" NUMBER OF CHARACTERS, oO 02145000 | Seat 
1a $ Op=2% MAKE A STRING WHICH HAS “NC” NUMBER OF CHARACTERS EXCLUDING $02116000 
@' : BOTH QUOTATIONS. #02117000 
NE ast ft eee sally PAD 2» Obs 2B/ 68. TSH nh POAT IB O0 0 ein idk ee 
18, Ca ho oa ea a ane eae ha ER EEOC L Cede ha Oa TeV OCO 
@” VALUE OP »NC3 02120000 
UO coset ot ac eters ie At nS nan PEN OP occ Decco Sa BE laces ese ni api atau at ater cl eae te ieee iy ne Rd EO rstal dian ea Re 
as BEGIN 02122000 
e” STREAM PROCEDURE  EDTCTsF ol ST»ORsNC)S 02123000 
VALUE ess Rep CP NC en tn he ale hah es AO) ota eo vol es cil 
BEGIN 02125000 
LOCAL 13 02126000 
Ae 2 =| 2d eee ee eaten eas pl atl a dine cheese tase ee ROOD. a! 2 arcane shel a Leal eee Sth Z 
SleTs DI*LOC 13 OSewOSs Olel3 02128000 
SI*LUC OP$ SKIP SB3 02129000 
Si Ghee read cee & OSB THE Ne Dei TS eS eG 8 at a ROOD ae Sela ee es ee te 
IF SC#"1" TREN 02131000 
BEGIN % TRANSFER CHARACTERS. 02132000 
eis eescget eee te en ace tee SEP SD OEN GG ORS NG ONT pass caer he ee OP AAO cen oct. san dideee eS et aE aI 
CI©LSTs DSe7 LIT"0000%; 02134000 
SIe*NCS SIe#SITeou3 02135000 
Sheil netics hoa TE LEER O TEN DS eb Oe ne oe eet OPN IOOOO. on oe oe, etter oa arene! 
IF SC2"0" THEN DSeLIT"O" ELSE 02137000 
1F SC=ALPHA THEN ODS*LIT"2” ELSE DSeLIT"4"; 02138000 
Sects, abel SEND EEE. Seiathe SB eee eta eee eee ee ee tO POO Dons tiie etme! 
IF SC="0" THEN 02140000 
BEGIN % SET BLANKS, 02141000 
NOC OS ELIT" "DF STeLOC NCS ST*ST46s 242000 
IF SC#"O" THEN 02143000 
BEGIN Ie*DIs UleLGC Fs HleDI+75 DS*CHR; 02144000 
esas Soc tre DOTS. b CeCe We LO ae ef O OTAGO itt OO att 
ENDS GO TO Lis 02146000 
END ELSE 02147000 
BEGIN % TRANSFER A STRING 02348000 =... 
OSeLIT™"S STFS OSENC CHRS DSeLITM; 02149000 
Li: AC#DIS OL]LSTs DS€7 LIT*OOUO"S DSeLIT4"S 02150000 
___ ENDS S021 51000. ac iio 
SIeLOC NC# DI*Ts OSewDS; 02152000 
ENO EDT3 02153000 
_ REAL As Q2154000 
BOOLEAN Bs 02155000 
LABEL LES 02156000 
IF DEBUGN®3 THEN 02157000 a 
BEGIN WRITECFOUSDBGs"¥xEDIT")3 02158000 
na athe hens Mg - 02359000 © 
q Qz160000 .. 
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\ q@ e 
i} 
| WRITE CFOUsDBGsOPsNCsAVCoUBPLSTPOFSI*IC)S 02161000 

@: END3 02162000 ® 
Acs fe Be Ot 18011 So) 2: eee eo ee 9 2s (c) « Pepa cht aes ieee We os 
1 IF OP¥0 THEN GO TU LE3 02164000 ' 

oi) IF AVC<CACIF OPS0 THEN NC ELSE 02165000 1@ 
a = LIF OPs2 THEN NC+e ELSE NC)+REALCBeLST#4 AND FST#4)) 02160000. | tet oo 3 
‘ THEN 02167000 ‘ 

o: BEGIN % ITEM CAN NOT BE HELD ON THIS CARDe 02166000 |@ 
lees th Se pattem TE VO RO THEN LOT CLG gL ST 0 eA NE ac hg ONO POO a ls Ni let 6 
a IF AVC20 THEN WRITECDOFSKLOX¢DX41]912eDCIL*#I)3 02170000 ? 

eo: IC*DST3 % RESTART WITH A NEW CARD IMAGE. 02171000 1@ 
9) —- itt Jf BR20 THEN AVGe?2 ELSE ROOD 8 
be IF BBtNCS72 THEN 02173000 

Ou BEGIN EDTCIC»0*LST#0s8B)3 AVC#?2=BB3 02174000 /@ 
DS ce oreo tt gh aes Dh Meth Alanis sek len a A 2a ete ey serine Goats wens fo ON SOOO, .« eee ers ov 12 
3 BEGIN BeFALSE# AcIF OPaz THEN NC+2 ELSE NC ENDS 02176000 "3 

e|: END ELSE AVC#723 DCICOI©INVAS(4284216)3 02177000 @ 
: Ne carla okt a ea te a epoch nh eect tee ND Bie ne ee cece pes ee Ss OZ IPIBOOO. Pier aen pS el 
VF IF BUOLEANCEVEO]e6181]) THEN UCIC9],£36%0]¢1;3 02179000 

@” IF AZO THEN EDTCICSESTeLSTsIF B THEN “OP ELSE OP »NC)302180000 
PE altho ce circa du Anche galontanceahd DesAY OO AVON a Oe NENG oe ae eyo tea ate ed ot Oe OOS 
19 IF OPs0 THEN 02182000 

@: BEGIN % END OF THE CARDs GO TO cBL¥s*), 02183000 
eee ae WRITECDFSKCDX¢0X+1)-12,0CI£4J)3s BT. 

2 DCILCSJEINVESL4224286)3 AVCeW4; 02185000 

@ » ENDS 02146000 
asad es ie Ne PE Ne a inate cs aS, pea tae cam ee ota cA Dec dota tera ol OD PO Oia 
2s BEGIN 02188000 

@ x DUMPARRAYCOCI oOstleFOurle"DCIL* IsDST); 02189000 
Py DUMPARRAY (CIs Osi ter OUete"*cifwli"s IST); Pn Sees OT OOOO i tt noes on oan 
Pa WRITE CF OUSDBGsCP»NCoAVCoBBeLST#FST9IC)3 02191000 

OF WRITECFOUsDBGe"eeEDIT")3 02192000 
DP ce NA el ew che ha wheat tot pe oat ct lsh etal, _02193000 sis 
; “LE? END EDITS 02194000 

@ » REAL PROCEDURE CHECKNXT (NEXT) 3 02195000 
re ee oe _f& OMME NT 22f Pee eats eee neat eonee oo ae BO teseteaespenaea tenet eseaeesnengasn on een 000 20219600 0. : SORE 5 OME) VRE ee ER EEE CATE ae 33 
y r THIS PROCEDURE CRECKS THE "NXT® AGAINST THE GIVEN "NEXT. 102197000 p 

@ | : VALUE OF RESULT? 202198000 @ 
a enn a 0 NOT MATCH? NOTHING ELSE SCANNEDe "NXT" IS A CHR UR DIGIT. 02199000 ee a wheres 36 
p7 3 13 END“OF@FILE. 102200000 37 

@ »: : 23 NOT MATCH! THE "NXT" IS SCANNED. 02201000 @ 
So A NOT MATCH THE "NXT" LTS PROCESSED. CSCANNING ERROR) ————-$02202000 | ets oc, 38 
Mo : 6! MATCHES, '02203000 ‘0 

@' : meemetee 5, 6, FAD 04/26/68 sae ee =302204000 +|@ 
Ae Sato erect oer ser eto e reer eer e toes eee stesateseeasetorseeseecererosssesv eet V2LUD000 ee peed 42 
Ha VALUE NEXTS 02206000 ‘ 

@ |. REAL NEXT 02207000 4@ 
: BEGIN teak 02208000 o 
LABEL LirL2eLes 02209000 ‘6 

er Lis IF EOF THEN BEGIN CHECKNXT#1s GO TO LE ENDS 02210000 etd 
IF _NXT=NEXT THEN BEGIN CHECKNXT#6$ GO TO LE ENDS 02211000 a 
IF NXT,(9616]5"%" THEN 02212000 4s 

@. BEGIN PERCENTS GO TO L1-ENDS 02213000 | 1 @ 
st | ee ee NXT,(4286]42 THEN GO TO LES 02214000, 51 
; COMMENT CHECK THE "NXT" MAY BE A CUMMENTS 02215000 5 

@ IF SCANC5) THEN BEGIN CHECKNXT#4s GO TO LE ENDS 02216000 | @ 
BA _ CO NCRE? THEN GO TO 123 __ 02217000 a Sete Sees __ | 
i IF EV(O}.C18130]2"CONME™ THEN GO TO Lai 02218000 ss 

Oy EVE@ Ie MNT SS | 02219000 sq @ 
e eer it ___TE“COMPAREACEVE1)9EVE: 2). Or6e2270 THEN OB AA0000 y 

@ ee 
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e: 6 
| 
L23 BEGIN CHECKNXT*2s GO TO LE EnUs 022€1000 
@. COMMNT3 GO TO Lis & IT [S CUMMENTs RE@CHECK, 02222000 @ 
Vo LETIF BOOLEANCDEBUGN) THEN WRITE CFOusDBG>"CHNXTO"sNxT#NEXT) ENDS COMMENTO2223000 | ea ee 
( LE’ END CHKECKNXTS 02224000 
@: PRUCEDURE SKIPDEFINES 02225000 1@ 
3 Lf OMMENT. 8 2208 oe edanaeasaea Poa ee Besa tea eet na oaneoanapnnve @ a2 o2 8868 Oe8 ee tesa eae san @ one 02226000. BAS Vets arkn wihieatt isabiee tea HecS cent eee oe A ee So S, 
r : THIS PROCEDURE SKIPS UNTIL AFTER A “#", THE COMMENTS? STRINGS* 202227000 ‘ 
e: t DEFINES AND "2"S ARE RECOGNIZED- £02228000 ‘|\@ 
6 ae TP OES etree Antes ra . a@eern® nw om oe Oe oO: Q Me cee neat pi eee eet tats Soe SE en 6 
i oe es 
@: BEGIN 02231000 1@ 
. So pe et RAE tou ig UN gS a ee A to ee Og232000.. .. .. ea eo PC eee ET ° 
7) LABEL bdo bere: 02233000 "0 
oe: IF BOOLEANCDEBUGN) THEN WRITECFOUs0BGp"SKIPUF"sNXT)3 02234000 . 1@ 
Tp tat ee gta scat cee UNTO AR OES FORM TO Vacs can acre ctaa elieeel OO PIRO OO ac, 5.5). «Ghee aaiag eee Se Spey ete 12 
13 Lis IF CI€CHECKNXTCUNTL))®6 THEN 02236000 "9 
@ BEGIN % END OF THE DEFINE, 02237000 W@ 
ee oo NOT SCANCL) THEN ~ aS se 2 Ais ees MOS VOID pence ys Dhyana Ses ne, nares 19 
16 IF GENERATE THEN EDITING(1s1)3 02239000 16 
e”’ GO TO LES 02240000 1@ 
ae hie Me @ 2.15 4: wicigide NBee ica dca A ae aC RN ipl ee tala re tte A Ee ca Ki 
"9 IF 184 THEN GO Td Lis 02242000 ‘9 
@» IF BOOLEANCL) THEN GG TO LES 02243000 1@ 
(ene Ce ree sie cece SUMO STAIN ee aid pee sa stm aes conn ne he all od urls OD PM AOO Os inci nn eifaort Delosin eititet a et ope Sant a 24 
ae IF NXT. C3626)=5%"" THEN 02245000 : 
@» BEGIN STRING? GO TO L1 END ELSE 02246000 =3@ 
Pa eesapten tenia, «08 If SCANCIF NXT ,l4236)24 THEN 1 ELSE 0) THEN GO To L1s02247000 OOD coensnymiden sete o ei 24 
bs COMMENT CHECK IF THERE I1§ ANY DEFINE INSIDE THIS DEFINES 02248000 2 
@« IF NCR#6 THEN 02249000 |@ 
i Sep etsatn a ate cee IF EVCol.C1Bt30]="DEFIN" THEN =z 0000 | EN eT a ett Rat et RY? 2 
8 BEGIN EvC2le"E"; 02251000 28 
r) IF COMPAREACEV(L]sEVL2)>00721)=0 THEN 02252000 5@ 
ee ee ee een (25, ene ere o CRP  et  RNDr  a Se Pesan) «F-)-2- 11.1, eee eee Bo 
IF GENERATE THEN EDITING(196)3 o2254000.— 31 
Or L2s SKIPDEFINES 02255000 a @® 
fa ie ce CTAB E CRN OBEN RL I6Ia2 16 19 ae THEN nnn oY 02256000 
| BEGIN 02257000 2 
@« IF NOT SCANG1) THEN 02258000 @ 
: Biotin eB ae, Uti Gorden anemia oe TE OGRE NE RATE. THEN EODTING( 16193 “GOUTO EEF... OBE 9000 i ta ie ee Se 
ee ENO 02260000 a7 
@» IF BOOLEANCI) THEN GO TO LES 02261000 34@ 
des Beiaee cont tse tac clen cee oat oe EN Ge EO eis 2 Yo in Lee oe SO PO CONG me oe eel: fa 
IF I=0 THEN 02263000 c 

@ | IF SCANCLF NXT,C42t6)54 THEN 1 ELSE 0) THEN 02264000 «|@ 
ala ale eal ae eA oT re tl, ahs Ye tle nat OS UO eager St ae Eg eh de 
IF GENERATE THEN EDITING(C1sNCR)S 02266000 a 

@ GO TO Las 02267000 4@ 
a et eat NB eS a ae sles er eel eS Neen to DO BOO Dae ein ote ed Se : “ 
EAD 02269000 M6 

@» . IF GENERATE THEN EDITING(1eNCK)$ GO TO Lis 02270000 «|@ 
aoe LE% END SKIPOEF a oe en ee et Be SF ODOT YON 0 ne oe 8 
REAL PROCEDURE GHGDFNATS ) 02272000 | “9 

e COMMENT sioggtge itt tssssresesarecsestecessscccesssscssectsasesecssacees 022! 3000 bf : d@ 
t THIS PROCEDURE ‘CHANG : e74on0 ae a 

sCONCATENATE"FIELD INTO 47 MINUS THAT VALUE, THIS CHGE IS MADE IF AND?02275000 

@F ONLY IF THE NEXT IS A "!%, wee ONLY BE CALLED WHEN DFINESFALSE *«** 202270000 “1@ 
ene eee tet eS PY 2 J) ee 5 
Of NOT CRANGED AND NOTHING PROCESSED, » : 302278000 | a 55 

@ 11 ERROR CAUSES THE ENTIRE DEFINE IGNORED. 302279000 | 1@ 
57 
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if 5 
: 4% NOT CHANGEC BUT MGRE THAN UNE ITEM PROCESSED. 202281000 
@. : 6! CHANGED, 202282000 e 
Niece nad Ne oth aca ats aay ath Sita OE Nm. dt AC PAU. JA) 257.08. Sree Seed ae 89000 ace see pe, ee 
\ Fe Way d xcs uwiare Geek ree SER ae Ed OS CLG ee a ba ep EC OLOO0 ! 
@:: BEGIN 02285000 1@ 
5) eae _ REAL De KS Sas at hes ae oe hee a ee cal on en, Decca e alee sas tere OOO a ce er ee Peg r ene Seat mee Neti wed 3 
po LABEL LireL2el 3eL4eLes 02287000 ‘ 
@|: IF BOOLEANCDEBUGN) THEN WRITECFOUs Dds "CHNGO7 "se \XT);3 02288000 |@ 
}6 _.... COMMENT SCAN FOR THE ITEM SUPPOSEDLY TC BE CHANGED AND SEE WHAT IT I1S3 o2289000........ 6 
\7 IF BOOLEANCI®*CHECKNXT(1)) THEN 02290000 7 
@: Lis BEGIN CHGOFN47¢13 GO TO LE ENS 02291000 ; -/@ 
} ee _ IF 184 THEN GO TU Lis e200 5 
‘0 IF I=0 THEN 02293000 
| BEGIN 02294000 
p2 eS rae ae Se te oe 6)24 THEN GO TO LE ELSF oo SOOO 
2 IF epAneces THEN GO TO L413 02296000 
@} ENO ELSE 02297000 
[bes I Ste aieceOed de Giga emecno SOMERE Tao ts’ ‘WAS A WORD JUST SCANNEDe ssp p8000 . 
IF NCR=6 THEN 02299000 
@. IF EvCOl. £LG8 301s" DERING THEN 02300000 
end BEGIN EVE2]e Ee") sends on oct OPIOLOO0. 
IF COMPARE ACEVE1} 9E VLA)» ,00791)£0 THEN | 02302000 
eo” BEGIN 02303000 
tan hE, _..._IF GENERATE THEN EDITINGCIsNCRIS GO TOLLS 02304000. 
ENUS 02305000 
@» ENDS 023060006 
J COMMENT «CHECK THE NEXT ITEM» CHANGE WILL BE MALE If IT IS A "3"3 gop307000.......... 
IF NXT,£4286)0 THEN 02308000 
rd] Les BEGIN CHGDFN47+23 02309000 
SN ae! sts eas ut EOD DOP NCR IE 95 ise ne De MO PBLPOOOO i cece 
IF GENERATE THEN EDITINGCIsNCR)3 02311000 
rd] GO TO LES 02312000 
EE ATE EDT eee NER 2 <0) eT ee ee _ 2313000. 
IF NXT,£42%6]24 THEN 02314000 
@~ IF NXT.C3686]3"3" THEN GO TO L4 ELSE 02315000 
oe ae ITF NXT,C3686]4"%" THEN GO TO b2s 923136000  _. 
“COMMENT THE NEXT ITEM IS NOT "3%, BUT THE "!" wAY CUME AFTER "2"S GR 02317000 
@ COMMENTS, AT THIS POINT START THE GENERATING PROCESS ANYWAY, 02316000 
PO ces tat NE Pao cic eas ae SE Cee, THE. "a"S OR COMMENTS WILL BE MOVED INTO THE FRONT OF THE 02319000 - Paes Oh Nt ht te Rl ae a nh te S 
y ITEM TO BE CHANGED» REGAROLESS THE CHANGE IS MADE OR NOT? 02320000 
@ | IF NOT GENERATE THEN STARTGENS 02321000 31 @ 
_TRNSFCHRCACOJ*SEVLOJsOs3sueNCRIS 22000 . 
IF (KeCHECKNXT(46"$"[3634286]))=6 THEN 02323000 ‘0 
@ |: BEGIN TRNSFCHRCEVLOJ»ALO)s3s02NCR#U)3 GO TO L4 ENDS 02324000 «|@ 
ee : ie ie 
IF K#4 THEN % 2 ITEMS SWITCHED» IT IS BAD ANY WAYs 02326000 | ‘ 
@ BEGIN. TRNSFCHRCEVO1» ALG» 3200) 02327000 jt 4@ 
| : yaw fa 
GO TO Lis Eh 
er END: 02330000 | @ 
Kes 
BEGIN TRNSFCHRCEVCO]* ALO] 3*0*NCRJ)F GO TO L2 ENDS on33a000 49 
@ TRNSFCHRCBLOISEVLO]20+3eNCRIS 02333000 «| @ 
_ TANSFCHRCEVCO]* ALO]+3900u)3. 02334000 st 
ECIT(1»d)3 02335000 5 
e IF NOT GENERATE THEN STARTGENS EDITINGC19V)3 02336000 1@ 
TRNSFCHRCEVLOJsBL0}s3s0eNCR)3 02337000, 
CHGOFNG7e43 GO TU L3d 02338000 ii 
@ | Las EDITCL»NCRIB 7 02339000 | @ 
ies IF [*2 THEN ae | i ee 02340000, 
@ @ @ 
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e- a — gee 
| f 
| BEGIN LeEVlo]s Evloleog"47""C18830818)3 02341000 
@' IF NOT GENERATE THEN STARTGENS 02342000 @ 
ee ee EDT TING 19 305 ev Ode ts ECLTINGCA»NCRIG UU 0234939000) 
_ f END ELSE FOURTY?7(0)3 02344000 
0» IF SCANC1) THEN GU TO L143 02345000 
i EDT C19 23 a __. 023946000 eee fee ee 2 
4 IF GENERATE THEN EDITING(191)3— 02347000 
@ |: CHGOFNA7+63 02348000 
. _._ LE? ENO CRGDFN47s Be eal ats ee ee ae 92349000 eenee se) See sen ees Eee 
/ ~ BOOLEAN PROCEDURE BRCKTS 02350000 
@ i: COMMENT S99 hoes ts S084 CES sess t se ete Chee et sse ts ss0 bss 6 see erie eeenseees0€ 294000 
3 4 __ THIS PROCEDURE CHECKS THE DEFINE=STRING STARTING WITH A "Ct. JF 302352000 . §— _ 
po THE "C*% TS A PARTIAL*FIELD OR CONCATENATE@FIELO* DCIL9]»L44tilel, 302353000. 
@ : VALUE OF RESULT$ TRUE ERRORS CAUSE THE DEFINE BE IGNORED. 302354000 
Uo pS es eR he Mt sa eee a ee Ce PAOD ONY 25/08. Sse ere TiO 355000... bt SN 
jis DG ta aisid.e'e 8 4 08 b Mae DADO U SHEN TAG Ged dS Ow boone OVEN Gi we ob wats UCI DOO0O 
@ « BEGIN : 02357000 
ee REAL ee BSTR eee era rae East EO PESO O00 es: 8 55 gsc tafe a 
18 LABEL ‘LisL3eb 34eL4eLSaLb3 02359000 
r IF BOOLEANCDEBUGN) THEN WRITECFQUsDBGs"RRCKDF™s \XT)5 02360000 
ER AVE 2O THEN EOITCOsAVC)? & STARTS A NEW CARD AT CeQ236)000.. 2... 
19 IF DFINE THEN DC1L9),03689]*CVE9).03689) ELSE 02362000 
@» BST#DX41; 02363000 
Fa ete et athe te org MEM ah hs se AST eS CERN OP CD A ND eo a tee te Oo es ee 02364000... seat fet en Na thes phe ames eer te AR Steed 
pe Lit BEGIN BRCKT*TRUES GO TO LE ENUS~ 02365000 
of ECITG1s1)3 02366000 
a a ert eles tent Lagat, MX anh gud dd Peds LENE RA ee TOE Ne DT TUNG te 808 eo re ce a es es (OP OOU = matt. ; : 
bey IF OF INE THEN GO TO LE3 02368000 
@ » IF CI*CHGDFN47)20 THEN Det ELSE 02369000 
a an Ra aS yh at se GO TO IF BOOLEANC!) THEN 11 ELSE LES = = 70000. 
s L3t IF BOOLEANCI*CHGDFN47) THEN GU To L13 02371000 
IF 156 THEN 02372000 
‘a whe hs Basset hee yo oosT PE CDeO*1 Se THEN GO TOSE SEU Fa i OP ST IO OO a pe ee ee 
L343 BEGIN % FLAG THE ERROR, 02374000 
@:: ERRORS CIC9I C3686] €13 «Desi 39F4St6];3 GO TO L53 02375000 
5 Sanne AS ee oe I nD Te SNR EN!) 1 1 SOR Oer ie Oe a Oe Ee OR LAA Pt Ree NS eee eee et ek MINE EAR 6 17° 2 Zo, 01 0 9 ti en ee Ee eee 
ft IF 132 THEN 02377000 
@* BEGIN 02378000 
Pa i pelea casi tate actin Ake a SCN NOG Me Mae ty ha a et tO POO ree 
ie IF NXT,0C3626]2")" THEN 023860000 
°F Mt PEEPS scancuy THEN 60 Tous g2sezs8 
SANG) THEN GO TO LES UU OB A2000 
ko EDITC191)3 02383000 
@' IF GENERATE THEN EDITING(101)3 02384000 
Saas certeafea MN ra IF BST>UX THEN DCIE9]¢£36#9)¢D ELSE __ 92385000 = a 
BEGIN READCOFSK(BSTJ]+120ACe})3 02386000 
Ou ACOI],C3IOS9IEDS WRITECDFSKEBSTIe120AC¥))3 02387000 
hag er i a a a la eg Se A a eee ot BBO oe one os pa ha ee ed 
END; 02369000 — 
er IF NXT,C4286)]30 THEN GO TO L343 02390000 
Beech ee ee __IF_CI¢CHECKNEXT C48" 19036242461) )36 THEN GO To 44s 02391000 
IF Im4 THEN GO TO Li3 02392000 
@ IF BOOLEAN(I) THEN GO TO L1Ls & 4 7 02393000 
If..Is2 THEN _ 02394000 = . 
BEGIN EDIT(1s#NCR)3 02395000 
e IF GENERATE THEN EDITINGCLeNCRYS 02396000 
ENDS GO 10 L34s 02397000 ; 
END ELSE GO TO L343 02398000 
e@ LE END BRCKT3 ee Pe . 02399000 
PROCEDURE OFNBOODY3 | see 02400000 
& 
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t 


, a @ 
COMMENT POOH OREM EO MeOH H ee HORM DHE O EPH Eero Hees eetetateenaserenssenezr eee eVeHU1LON0 
 ] : THIS PROCEDURE BUILD THE BODY OF A DEFINE IN TO OFSK@FILE. IF IT 202402000 e 
we ETS NOT DURING THE EXFCUTIUN OF A DEFINE THE PARTIAL*FIELD AND THE. 8024U3000..... 
al “YCONCATENATE*FIELD WILL BE CHANGED. 102404000 
@: ’ VALUE OF RESULT! TRUE? ERROR CAUSES TRE ENTIRE GEFINE IGNORED. 1202405000 1@ 
Be mm PAD 04/25/68 wwmewennt 02406000 i sis 3 
. Shwe meee Hemet ee eeee reas areneteeet neat eneesenteratteeneemenscnses sent VEH0T000 : 
@: BEGIN 0240800 |@ 
Oia ee Stat Uy A EG ela Sci as SB BN el en see A oe ce NG ee re oe ie PAP OOh oc 2 oe ecto. a 6 
7 LABEL Lisl2eL3eL34elL4rLe3 02410000 7 
@: IF BOOLEANCDEBUGN) THEN WRITECFOUsOBGs"DFBUDY"sNXT)3 02411000 . -|@ 
—— bd BOF THEN GOTOLRs = zg 9 
No IF CLENXT*¢(42%6))24 THEN 02413000 1 
@: BEGIN 02414000 /@ 
Pe eee Me Geol hut en duty oe TE ONE Pe (SOTO ISN ETH Ne tO SOOO Y ta ee tenceenct es 12 
GO TO IF BRCKT THEN L2 ELSE L143 02416000 ‘ie 
@ | IF Ja" THEN 02417000 7 
{—————" woe ie connanennne BEGIN STRINGS EDITC2sNCRIZ GO TO 14, ENDS Opa anoo | ite id et Se tat 15 
6 IF J="8" THEN 02419000 i 
eo” BEGIN PERCENT? GO TO Ly ENLS 02420000 hed 
a Be ee ee ee oe Fo 5 be re ee OE Rn eet heath Pee eer eee 02421000. pte ag ION A ct ta Ne rs te eI 
19 IF SCANCIF Im2 THEN 5 ELSE IF I=4 THEN 1 ELSE 0) THENO2422000 s 
@ | Les BEGIN SKIPDEFINES 02423000 @ 
cia ce a teat ie Mey enn cco OPP NB DOVE TRUE 2 G02 0 i Pils aie oe os ee eee ee A DA OOD Lo la eee ey oe see ee te dd ay 
2 ENDS . 02425000 2 e 
e+ IF I=2 THEN 02426000 29 
C Soe te ete ee ey os Ae ee ce RSL EIN ee oh ce weet Ny a a OT OG pts den Dy, esac tet ee A oe en OP be eee ae eee 
IF EVLO),£1830)="COMME" THEN 02428000 2 e 
@» BEGIN EVL2]e"NT"S 02429000 Ps 
27 a ee en ECO MP ARE ACEVIL TEV Aj, Oehe2)2O THEN . op4a0nno. 2 
BEGIN COMMNTS GO TU Li ENDS 02431000 1@ 
END} 02432000 is 
Este as aT TIN GN pcan ie in cea hth Ne car a 8 ee tt a 
IF GENERATE THEN EDITINGCIsNCR)} 02434000 _ 
IF [=4 THEN: 02435000 | @ 
ee ee its anne ae F SBE" THEN GO TO LE ELSE 46000 Stes Renee en OY oe ens 33 
IF Je":" THEN 02437000 é 
BEGIN ERRORS OCIL9) C3686] e1s CIL9),C3686)¢1 ENDS 02438000 21 @ 
i eda mal alee es Ae TEN NGO Vt SE a Sesh eee eth hcl fo ron SM OOOO). f Be pis es Meg eee 36 
: IF NCR46 THEN GO TO Lis 02440000 a 
IF EVCO].C188390IJZ"DEFIN" THEN GO TO Li3 | 02441000 3 @ 
rasp hah mat, esas Sh Se Oe i) ae pay ES cle nt a ct eat ny ee NOOO a he ec a since ios oy ce As aca eg 39 
IF COMPAREACEVE1J*EVL2}s0%791)40 THEN GO TO Li3 02443000 40 
COMMENT PROCESSES THE DEFINES INSIDE THIS DEFINES 02444000 |@ 
en tee IF BOOLEANCI*CHECKNXT(1)) THEN GO-TO L33 02445000 ee 42 
IF I#2 THEN %& DEFINE ID DOESNT START WITH A LETTER: 02446900 4 
Lat BEGIN SKIPDEFINES 02447000 4@ 
GO TO IF EOF THEN LZ ELSE =——————“<i*~—~™S*~—~SCs BD <a 45 
IF NxXT,0£3626]3"5" THEN La ELSE 02449000 a6 
IF TeCHECKNXTC 4830 36242!6))=6 THEN L2 ELSE L4s 02450000 7] 
net Pe, ENDS 02451000 8 
EOITCL»NCR)3 024482000 as 
IF GENERATE THEN EDITINGCAsNCK)3 | 02453000 1@ 
aes IF_EQF THEN GO TO L33 ; 02454000 51 
IF NXT,C3686)#"3" THEN 02455000 5 
BEGIN 02456000 s|@ 
IF CI©CHECKNXT(48"%="(3624216)))20 THEN 02457000 ' 
IB NXT, 368638" C" THEN ois - 02458000 5 
@ i BEGIN me - 02459000 «| @ 
a IF DFINE THEN. ARDENe1 ELSE CVG], [3686] +ERXeL3 02460000 ; 
®@ @ °® 
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ee 
i 
| LFXENFXS I®BRACKETO™)"ot23 LFXe43 02461000 
@ IF I=4 THEN 02462000 
Mlvene Mace: BEGIN EvlOle 0a" "f18s36'12)3 EDITC122)3 02463000 
( IF EOF THEN GO TO L33 02464000 
@” I¢1F NXT,C3086)3%=" THEN 6 ELSE 02465000 
ae ee ae Se eee CHECKNXI(4a"="(3684226))3 = 466000 
aD ENDS 02467000 
@ |: END} 02468000 
é Sts engl Sa eae oe VE BOOLEAN CLO: THEN GOTO: 139 no no RT 0175-1010 
’ : IF I=2 THEN 02470000 
@ |: BEGIN . 02471000 
GENERATE THEN EDITINGC1¢NCR)3 GO TO Las 02472000 
END3 02473000 
. IF I1¥6 THEN GO TO L43 02474000 
a a eS a ON 00 OS i 
8 IF SCANC1) THEN GU TO L453 02476000 
@ EDITC121)3 | 02477000 
De ee ee tf GENERATE THEN EDITING¢ 1.193. 0 87 BODO 
16 IF DFNBODY THEN GO To L43 02479000 
, IF EOF THEN GU TU L33 02480000 
ne, Aes JPR ONT CAGE GAs ATE Net ecole pi rr ee hte OO Oe atte nt temas a 
i IF J#"3" THEN 02482000 
@» BEGIN 02483000 
OR ek I ROOLEANCTeCNECKNX1 (C489 "[36242%6])) THEN 02484000. 
F GO TO L33 | 02485000 
@» IF I=2 THEN 02486000 
PONS ca a Sas Sa retail tate centages ic eae OI EN oe Reason en, BOS ea ates coll A ete ee ee ls wanes. TN OMT OOD t. meade hs 
ps IF GENERATE THEN EDITINGCIsNCRIS GO TO L4s 02488000 
@» ENDS 02489000 
Mishel cite be Salve cdesase Siesta cee hoc ON a AN eI Ie Ph ae re tl ea eS as AO OOD a: i out wundeaeeam os 
8 IF NXT.£3626)4"5" THEN GO TO L4 ELSE 02491000 
@ IF 146 THEN GO TO L43 02492000 
ance Se eNotes AA olf ee ee a oe RN ea ELON, een ON LS 61°C 10 0 | a ee eR Snes ee 
IF SCANC1) THEN GO TG L23 02494000 
@, EDIT(C1,1)3 02495000 
Os te AC be Ainge cw ._LF GENERATE THEN EDITINGC et)¢ OO 24 9GONO 
GC TU IF yv="Zs" THEN LL ELSE 4343 02497000 
@ LE: END DFNRUDY3 02498000 
Be tango te NE Al oe cota Min ENE EN SD el er ee a OVI OO aa eae 
fe LABEL WHOrsHLeHl2eH1ds»H2eHE; 02500000 
@ IF BOOLEANCDEBUGN) THEN WRITE CF OUrObGs"BULDFN'»NXT*DX)S 02501000 
ps COMMENT INITIALIZING THE EDIT*PROCEOURE IN THIS BLOCKS _.0g802000, i sist =F: 
—— Bhe2; &% BLANKS IN THE FRONT UF EACH CARD. 02503000 
@ | DFST#DX3S AVCHM13 DOCILOI©INVAS(4284296)3 02504000 
“ COMMENT SCAN FOR THE DEFINE IDENTIF JERS O2505000 
: HO’ IF BOOLEANCI¢CHECKNXTC1)) THEN GO TO H13 02506000 
@ - IF I#2 THEN % DEFING-ID DOSNT START WITH A LETTER» 02507000 
: ee) Oe BEGIN DXepFSTs ss eee 
IF INFOINXS0 THEN 02509000 
e} BEGIN INFCOJ*"ODEFIN'S INFLLJeOR"E"CZ24325)3 02510000 
os aR OUCODP INF CODDS 00 Lied 
9 ENO ELSE 02512000 
@ | DFERCFAUCO)*INFOLINFOINX sf 3525S ]* INFOINX,64028)])3 02513000 
x R AS 0 
5 Hi2s IF EOF THEN GO 10 HE ELSE SKIPOEFINES 02515000 
@} IF ECF THEN GO TO HES 02516000 
NXT 3686 ENF THEN = 
55 H14t BEGIN 02518000 
@ | IF NOT SCANCL) THEN 02519000 
R NERATE [REN EDITING] 0 a 0222090000 
@ 
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| END ELSE GU Tu 02521000 
@: IF CHECKNXTC48"3"(3634226))=6 THEN H14 ELSE H123 02522000 e 
I sNn tans at hae, ate tp aete ata REE NG ke tae spy ieee Non hat ltd oon SOA OOS cuit aman re csasttet act yc Aian nants 
rT IF GENERATE THEN EOITING(L»NCRD3 02524000 
@ COMMENT BUILD IN INFL*] THE ENTRY OF THIS DEFINE. INFL*) WILL BE MOVED02525000 1@ 
3 TO INF OL eet) WHEN THE PROCESS IS COMPLETE wITH NO ERRORS 02526000. a ee 3 
INFCLJ+EVCOIRNCREII31317)5 02527000 : 
IF NCR>S THEN 02528000 |@ 
eeeetrn 2 pe GING 3.5 2) ss ot sete ws Jace res ws Ones PN acoiy thee he 6 
INF LCOJe*CNCR+10) OI1V. rn % ADDITIONAL INFO REL INX,02530000 i 
TRNSFMOSCINFC2J9EVC1]¢@INFCOI™ 193 02531000 |@ 
eee ees 3 es Staaten nh fs SMM Ot et dec genet te 9 
COMMENT PICK UP THE "=", AFTER WHICH, THE DEFINE BODY STARTSs 02533000 19 
IF EOF THEN GO TC #13 02534000 1/@ 
Matera ths Sal, at ears ee tee 6]e"]2" THEN GO TO Hees SEE 10101 cr a tS en een a eee ee | 
IF CLeECHECKNXT(46"2"(396842!6)]))36 THEN GO TO Has 02536000 13 
IF 130 THEN | 02537000 W@ 
DR NKT,£3626)9"(" THEN _ 8000. Aare eR eee 15 
BEGIN 02539000 "6 
IF DOF INE THEN ERRDFNeL ELSE CVC9].L3IG86]¢ERXe13 02540000 \@ 
anes z _LEXeNFX$ I¢BRACKETC™) "535 LFxXels = 02541000 eee ee ee ee ee ee CN 
IF 124 THEN . 02542000 ue 
IF CI®CHECKNXT(4a"2"( 3684226) ))26 THEN 02543000 2 @ 
salts ce _._ BEGIN EVfOJeCLiljels EnTTCor0)3 GO TO He ENDS  O2544000 |. 2. 2 ct 
END; 02545000 
IF [#2 THEN 02546000 
7 oo ve DEGENERATE THEN EDITING CLAN CR) 3 RBM 2OO. ae ce 
GO TO His 02548000 
COMMENT START TO BUILD THE DEFINE BOO. INTO pFSK*FILES 02549000 
M2 NOT SCANCL) THEN _ 50000. 
IF GENERATE THEN EDITING( 1s 1)3 02551000 
INFCL©INFCOJJ*DX+13 % STORE OFSK=@INDEX OF FEFINEe 02552000 
seat mere _IF OFNBODY THEN GO TO His mee O 2 IIIUO0! oS neue aes area aeerae ae 
COMMENT COMPLETE BUILDING THIS DEFINE* ENTER I? TO INFOL+*]s 02554000 31 
IF AVC20 THEN EDITCOsAVC)S 02555000 -|@ 
= rm _INFOINX¢INFOENTRYCINFeQ"INFCOI)S = 556000 | PRTC eT EERE aE eT ey 3 
DF ST*DX3 02557000 34 
IF DEBUGN=3 THEN 02558000 13@ 
BEGIN ella a Bet tte SO e000 <7, a ee 36 
DUMPARRAYCINFOCOs* 3, 0>255eFOUr le [NFULO" es HFK) S : 02560000 37 
FOR I*O STEP 4 UNTIL Dx OO 02561000 31 @ 
_____.. BEGIN READ CDF SK TI s122AC*JISDUMPARRAY (Ar Os lgeFOUrle"DFSK sMsTENDSO2562000 sss a9 
END} 02563000 40 
ee) COMMENT PICK UP THE SEMICOLUMN OR THE COMMA AFTER THIS OEFINES 02564000 «|@ 
IR ENXT EROROTEME" THEN 02965000, a 
IF d#",)” THEN 02566000 ' 
@ BEGIN , 02567000 @ 
ee (3 BOOLEANCLeCHECKNXTC4R"5"L36142363)) THEN | 02568000 4s 
GO TO Hi3 02569000 ; 
er IF lez THEN 02570000 18 
0257 ‘ 
ta GENERATE THEN EDITINGCL»NCR): GO TO His 02572000 42 
@ ENDS 02573000 so @ 
20 HE : rane « 02574000 Sane et 
BEGIN IF J¢NXTel36%6]4")" THEN GO TO H} END ELSE 02575000 5 
Ot IF 136 THEN JeiXT, [3616] ELSE GO TO Hid 02576000 | :|@ 
; pO POO oe an ee ce a 5 
IF NOT SCANC1). THEN . 02578000 5 
@ | IF GENERATE THEN EDITINGC1p1)3 02579000 s| @ 
: IP AS" THEN GO TO HOF _ 0258000¢ y 
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@| e 
HE’ ENO BUILUEFINES 02561000 
e REAL PROCEDURE DONTCARECI)3 02582000 e 
rn a ee een co MMENT ODM OH OOD poaciesale§.ticaig ao 05064 6 ADEE SES DEAD SOD Oe a we 22850 0.0... 
(i : THIS PROCEDURE ENTERS A "DONT@CARE” INTO INFOL ese) IF THE NEXT IS 302984000 
@» TAN IDENTIFIERe IF "I* IS AN EVEN NUMBER» nO SCAN IS PERFORMED AND 302585000 
: __SWHATEVER IS IN EVE*) Wilt BE FNTERED INTO INFOC*s*#), 2586000 
: i VALUE OF RESULTS Of NEXT IS A ABSULUTE RESERVED WORD. 102987000 
@ | : Lt NEXT IS END@CF°FILE. 202588000 
° en IN os tee Ra tte eet An Ae as aE T DIGIT oR SPECTAL CHARACTER, 802589000 ... 
7 : 3: WEXT IS "BEGIN", 102590000 
ee: : St NEXT IS "END, 02591000 
: Poe, eee a BE NEXT TS ENTERED aS A "DONT@CARE"s ss. 92000. 
10 ’ erweetes 5, CC, FAQ 05/15/68 =8""="""302593000 
@ " Teer Cte Cee eee Te CS ee Tee ee re ee ee eee ee ere ce eee re ee eee ee heron ee eeke 
I ay Ney, gas te REN Bie Ska att le nt eas en a Dn pepe are 02595000. e 
3 REAL I3 02596000 
, BEGIN 02597000 
os pote tages ARN oe oud ea OE OUD ea ree lente Ba spate te nee 02598000. 
8 LABEL Lisl2rLeé3 02599000 
e IF BOOLEANCI) THEN 02600000 
NY ee ee BEGIN LEX ONE XS LeCHECKNEXT CI) LFXer END ELSE GO Laso26aqig00..... 
ie IF BOQLEANCI) THEN 02602000 
@. L413 BEGIN DONTCARE*Is GO TO LE END} 02603000 
—— ITF 152 THEN GO TO Ls nee oe BOOMOOO... 
: IF IFXSRFX THEN GU TO LES 02605000 
@ * Lat ALOJ*#O3 % MARK AD A RESERVES WORD **" “OONT*CARE". 02606000 
BS UW acon Sanat ge! thee ty adhd asspge MC PEEMUODRNOC REN U SADT TID ooo oe co ee es et een OPOUL OOD, 
= Rg IF NCR<5S THEN I*U ELSE 02608000 
5@ * TRNSF WOSCAL2] SEVIS oT CNCRH2) 0 L3926))3 02609000 
: é saa Sects cPh ce be cts ceases GE WIN ENTRY AIT EQOT poo cn stn sae er eee cae ODO VOU O as a sth adi tenia 
Sf DONTCARE©8} 02611000 
a a LE! END DOONTCARES 02612000 
: _... REAL PROCEDURE  DCLANTYPECAY)$ Pewee: su AO TS 000s 2 bbe iu wen oe 
; COMMENT CORO r ere rear ere Hens arn Heer e Harness rosa Heenroererssesseosenes sss 02014000 
@ & : THIS PROCEDURE ENTERS AN ARRAY LOENTIFIER C"AY"S1) OR A SIMPLE 02615000 
oo _._STDENTIFIER CCAY=O) INTO INFOC#s*)e fi tee ADP OLGOOC.. ccs aioe. 
t VALUE OF RESULT$ O: PROCESSEO UNTIL aFTER THE “SEMICOLUMN, 302617000 
@ : 1: STOPPED AT EnD@dF-FILE. 302618000 
bo Shigeo ah a te areata acetone eSB OO PL ble, SEE NY ge cay ch ee OOOO 0s Me foal eons 
7 ; 5: STOPPED AT "ENO", 302620000 
@ : wameneme 5, C6, PAQ 04/30/68 “#n=="""302621000 
‘ dane RODPOHCO OHH aoe Fase oes taneneeas MO FPP soot eRe tees Me Geo Ft oePPePP Peer ees & 2230262200! 62200 aia cad gta cee ae Noha cele eg So Se te Sa 
| VALUE AY3 02623000 
@ | REAL AY3 02624000 
i. ease Cl nica cane ee saa, stellar octets toa en °-4.°Y-4-1°)°) 0a 
2 REAL Wels 02626000 
@ ' LABEL Ld eL2oL3rL4oL SL XeLXteLEs 02627000 
— IF BOOLEANCDEBUGN) THEN WRITECFOUPDBGs"DCTYPE"»NXTo avs 02628000 0. 
He COMMENT ENTER THE ICENTIFIER INTO INFOL*,*)3 02629000 
e@. IF BOULEANCAY) THEN 02630000 
BEGIN ALO NOOR I TTS 46t2)3 gO TO L3 END ELSe __02631000 
. ACO]*083(124682)) 02632000 
e Lis ACLIFEVLOIRNCRE 11391947) 02633000 
suisse iem ea i 1+ : 02634000 ss 
TRNSFWDSCACZIPZEVIL JP LE CNCRH?S) 0 L3986I)3 02635000 
© Le INFOENTRYCAsI1+2)3 02636000 
COMMENT LOOKING FOR THE NEXT IDENTIFIER IF THERE ANYS 2637000 
IF CI®CHECKNEXTC48"s"036242%6))288 THEN: 02638000 
e L2s BEGIN % LOOKING FOR THE NEXT IDENTIFIERe 02639000 
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IF GENERATE THEN EDITING(141)3 02641000 
| L33 LFXeNFX3S LeCHECKNEXTCL)3 bEFXeL3 02642000 
> poet tata GO. TOLE BOOLEANCT) THEN LX ELSE 02643000 
a IF I1#2 THEN LX ELSE 02644000 
12 IF IFX>RFX THEN L1 ELSE LX3 02645000 
Pi cee ec hae slater NDS ot) tise wield nie os ht la ate Fg | A ort Ses ae ee OM OOO Uso) 
4 IF 182 THEN 02647000 
a BEGIN 02648000 
Os oreo os oe ee aa eae he NO Ee OS OJ OL EN et ee ese OP ORI OOO cn: nuantve. coh ius 
#) GO TO IF BOOLEANCAY) THEN L4 ELSE LX3 02650000 
: IF NXT,0C3686)9"3" THEN 02651000 
i Ue Ad sheet A Sef fee GO Tn IF BOOLEANCAY) TREN. LX ELSE L532 OH 200N 
0 ENDS GO TO L&3 02653000 
n COMMENT SCAN FOR THE € 1] IN CASE OF AN ARRAY IDENTIFIERS 02654000 
co eee $e BR ACKETON D9 1) 46 THEN GO TO LxXe Genmeme 81-20 5=)yo Nake) 0 Rae eee eee eee 
IF CI®CHECKNEXT (48% "(3624226)))88 THEN GO TO La; 02656000 
f IF 132 THEN 02657000 
SORES esd eevee FO NXT T3696) "5" THEN GO TO bSS 0 OB BONd 
COMMENT ERROR SITUATION»? MARK ERRORS 026599000 
LXx8 IF DFINE THEN ERRODFNe1 ELSE 02660000 
—_ AF 1s2 THEN CVC C36 TOT OERXeL ELSE 2601000 
BEGIN ERRORS CIC9],£36%6)¢4 END; 02662000 
IF BOOLEANCL) THEN GO TO LX13 02663000 
coe ennes sns oe F BOQLEANCTEREALCSKIPUNTILO"3"))) THEN = 2664000 
LX13 BEGIN DCLARTYPE*1s GO TO LE END; 02665000 
L53 IF NOT SCANC4) TREN 02666000 
a eee ww GENERATE THEN EDITING( Lele ae 6e7o0a.. 
LE& END DCLARTYPES 02668000 
REAL PROCEDURE BLOCK(BGN)3 VALUE BGNS REAL BGNS FORWARDS 02669000 
___ REAL PROCEDURE . PROCEDUR(TeP)s Sr tt Nie eee nme AO TOOOO en 
COMMENT Ba nisin eis BSC aie R eS sina ein OA A cna Y= ta Rss Fienieisan se Caseiesiernn eo) oe 
$ THIS PROCEDURE TAKES CARE oF PRUCESSING A PROCEDURE DECLARATIONe %02672000 


Geto ALE OF: "RESULTI 03 PROCESS CUMP,ETE. eee lena k Oe eee, ee OT AO OO tte lens i Morne nee es a te See eg 
‘ 1% STOPPED aT END@OF*FILE. 302674000 a 
: 3: STOPPED AT "BEGIN", 302675000 | @ 
Oe deh tt Ea Wiles sO setae Gea do ceneladishawiiesnice nee. 1S TOPE En TN a oo Oa glee in ae ODE OOOO: car Spee ease ehh St 9 Ea at fe 33 
a : weeenme= 9, C, PAO 05/03/68 =s==="=9302677000 cE 
ba aa ere ie a ee a ee eT ee ee aC SE ee a ee ee are er or ao Oe 31@ 
igi tects cee neice 2-1) ACO ie MRE CJ; IP Reena ain eM SES oS SR ADOC SDEY SUMS INLOE ELON STE a ne eee Ore MP ORE 9-1-1 "110110? ee ne CD ae See SR Tee OE IR 
5 BOOLEAN TP3 02680000 | u 
REGIN 02681000 | 4@ 
at Re eh OM ae a tes PA BA ence, end A BL, cay gh a tS crates oe ee Sale ee sa et OO ODO tea Lore 7 see Ge ee he 
LABEL LisLesLXeLXleLEs 02683000 }40 
IF BOOLEANCDEBUGN) THEN WRITE CFOUs0BG,"PROCOR™»+NXTs TP) 3 02684000 +|@ 
eee IF ClepONTCARE(1)248 THEN 02685000 : 42 
LX$ BEGIN % THE NEXT IS A SPECIAL CHR OR A OIGITe 02686000 4 
IF OFINE THEN ERRDFNe1 ELSE 02687000 4@ 
ce Ne THEN CVEOT LUG SOJEERXOL ELSE  —=«—s_—s: 26 BBN00)~6=—=——t—~—S a 
BEGIN ERRORS CIL9),036:6)+1 ENDS 02689000 ‘6 
IF BOOLEANCI) THEN GO 10 Lxli 02690000 10 
tee. LFXENFX3 JeREALCSKIPUNTILC("S"))3 LEXed3 02691000 “8 
IF BOOLEANCI). THEN 02692000 as 
LXds BEGIN PROCEOUR+13 GO TO LE ENDS 02693000 1 @ 
i IF_NOT SCANC4) THEN : 02694000 | 51 
IF GENERATE THEN EDITING(1ie1)4 GO TO Las 02695000 5 
ENDS 02696000 ; «| @ 
ion. IF BOOLEANCI¢CHECKNEXTCMaM(™E36i42363)) THEN == 02697000 54 
GC TO LX3 02698000 a: 55 
IF 188 THEN GO TO L43 02699000 : . | @ 
IF 142 THEN GO TO LXS | | 02700000 ic fe ele ee 5 
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| . 
| IF NXT,0C36%6]4"3" THEN GU TO LX3 02701000 

IF NOT SCANC1) THEN 02702000  ] 
| IF GENERATE THEN EDITING(I-12% 03000 aie 
( | IF TP THEN 02704000 
2 INFOCHFXe C3525) eHFXeC4OtAI ML elli2je3s 02705000 
3 bee. ne EE BOOLEANCT¢BLOCK(O)) THEN = = 27060000 
‘ GQ TO IF I=) THEN LX ELSE LXx13 02707000 
5 IF NXT,C3636)8%3" THEN 02708000 
6 patti Rl): Laon N ical a he ic eS ee fie he OV OOU., gacea ein ete 
7 IF OF INE THEN ERRDFNeL ELSE CVL9], C366] CERXe1L3 02710000 
8 END ELSE 02711000 
Sd, SivieiedinbndOieceeemeltd NOW: SCAN CLI. TREN to es ns So OPI EP BO00 ne 8 ee 
iD IF GENERATE THEN EDITING(191)3 02713000 
" LE’ END PROCEDUR; 02714000 
my STREAM PROCEDURE  BGNEND(FeBEsBKCNT*CONO*DFNeOFID»BDND)S =e SOOO FC 
3 VALUE BE »BKCNTsDFNS 02716000 
iM BEGIN 02717000 
od aN eas iaahn 4 . DI#Fs 2¢DS"33 LIT" = )5 DS*5 LITtawees ae aapOO... 
ns SteLUC BES SI*Sl+73 02719000 
m IF SCa"1" THEN 02720000 
MO ee We Gm Sim  attiee BR GTN SOS8B TIM OBE GING Ce POD Bakes ic) ce eather a BPD LOOD comes, acaowudededccensidaete 
ae DI*BDNOZ SI*CONU$ OS*8 CHRS DleF3 02722000 
PY END ELSE DSe#@ LIT"#** END ("3 02723000 
OY cee ute te ee wee itu DL OC BKCNT) DS¢3 DECE DSeS LIT") on Me oer eknon. fos peas 
2 SI*CDNO3 DS*g CHRA 02725000 
3 SIeLOC DFN$ SI*S1+73 02726000 
}—--- eben Be Ey  opiite adeieighiaecJOU Ren OC mL NE Nahe ite LN as tot ce re Oe anes a OT OE ROU. ) Seen ca ee ee ee ee 
: BEGIN OSe¢11 LIT" IN DEFINE "3 02728000 
ps SI*DFIDS SI*SI+3$ 05¢5 CHRS DSeLIT™ 3 02729000 
7 Boas Pan atm ae cow —NQ ELSE BEGIN DS*LIT" "3 pS"16 LIT"eean” ENDS (02730000... 
2 SI*#LUC BES S]*SI+73 02731000 

IF SC#"1" THEN 02732000 


. eS eS BEGIN (D140 fs OSC) Ti Be ST eens 0S" CHR END ELSE O27 3300 0 in a 
DS4B LITtewnas 02734000 
2 END BGNEND3 02735000 
PU REAL PROCEOURE 3. USTREAMPROCFOURECTP)S 0 Br ebOOO 
COMMENT CORO R ea C eRe Hee O Hee aH Heese HEH EeeHereteHerersrnesereresenovesssesdal 3/000 
pe 3 THIS PROCEDURE PROCCESSES JHE STREAM PROCEDURE Se 102738000 
eee nn Orne AON (ORNS or ere sree eT ae ae nS een Soe Ja 0 PAO ONY O97 GR Ses eres 097 59000 oo nice te 
a Poder e reer ere ree eee reer one eee sh H et Heeedeesheretereeenareseevenserer ses de 40000 
a VALUE TP} - 02741000 
aises een ROO EAN ops oa SP Sh ce it ie le a ES Z Sede aM A, chk eS 
Ke BEGIN 02743000 
P REAL PROCEDURE ERRSTREAMC JIS & CE MDH, MEM, 4s NTHENT. 63 MELSE"™,02744000 
; et eee ori ee BWA Sn ate SOs BEGIN’ » SEND, Oe7eSo00 
| REAL J3 7 02746000 
BEGIN 02747000 
(esses A has, REAL pare OF me enti erences les ___02748000 2 
LABEL Lislesrles 02749000 
IF BOOLEANCDERUGN) THEN WRITECFOUsDGGs "ERRSTM"sNXTo VQ )3 02750000 


I CT eLF XQ gL181919960 THEN verde LEXENFXS STRM*FALSESO2751000 


IF DFINE THEN ERROFN@2 ELSE 02732000 
IF J#2 THEN CVE9]+6£3686)¢ERX#1 ELSE 02753000 
BEGIN ERRORS = =6CIED 6t6jeq3 2754 oes S 
IF BOULEANCJ) THEN GO TO LES 02755000 
Lis IF GENERATE THEN EDITINGC1sNCR)3 02756000 
; 7 
IF (WOCHECKNEKTC48™3"C 36242160288 THEN 02758000 


L2s 
02759000 


BEGIN Je23 GO TO LE END; ; 
: 02760000 
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o @ 
| IF NXT,(36%6j=")" AND I>0 THEN GO TO LE ELSE 02761000 
| IF NXT,C3636J=""" THEN 02762000 < 
ee ow —-BEGIN STRING? GOTO 12 Eno ESE regooo. a ee 
4 GO TO IF SCANCIF NXT.C4286)=4 THEN 1 ELSE 0) THEN L2 0p?04000 
2 ELSE Lis 02765000 2/@ 
le estes reac tle oa --LE JO THEN IF LFXsHLK THEN GU TO La; aa766n00 re Tr 3 
‘ IF I>0 THEN 02767000 4 
@ |: IF IFXsDFX+9 THEN BEGIN ye6s GU TO LE END ELSE 02768000 s|@ 
| ee a -_ cms f TF XE OFX+19 THEN BEGIN Jeds GO TO LE ENDS Be eae OOO Us 2)o- po nsse et cad oy Teche oa oo » js 
| IF NOT BOOLEANCJ) THEN GO TO L23 02770000 ? 
r Les LFX*ABS(1)3. STRMETRUES ERRSTREAMeg3 02771000 /@ 
i muvee ENO ERRST ; a OREIBOOO 9 
10}. PROCEDURE LOCAL(X)3 %& MAKE A "LOCALCINFOLXII", 0277300C a 
ee VALUE x3 02774000 " 
2 Pa iE he a ee BP PSGA ac eRe ee eects JE 
BEGIN 02776000 "9 
@ |. REAL 13 02777000 W@ 
-TE_BOOLEANCDEBUGN) THEN WRITECFOUsDHG»"LOCAL MONXToX0z gr rag oO Beri nee 15 
IF NOT GENERATE THEN STARTGENS 02779000 "6 
er EVCOJe"LOCAL™S EvCileOghc"c434325)3 EDITING(126)3 02780000 |@ 
mon cena i EOE TINGCI o CE VEOTEINEOL Tey, 63585 ),¢x ex, ,[4Q8H]oy¢ 8 8. O22 Kd1000 UOC Bee eed tee a oe eet oe alee Ne a eB 
INFOCI*X™1).0402633).012:6))3 FSTeag; 02782000 ar 
o7 EVCOOK"INC 188427673 EDITINGCie1)3 02783000 a 
te Ne asa ft SER CC Rooter St rr es een et ae po OPP BBOOO og ee hie 2 a 
PROCEDURE REPEATFIELOCX)3 %& MAKE a« KEPEATFIELDs 02785000 2 
@ » VALUE X3 02766000 3@ 
pa A Wc A a a a tele aes Dee See ee OPA P ONG |. ie Se ae _ eee 
BEGIN 02788000 f 
) IF BOOLEANCDEBUGN) THEN WRITECFOUsOUG»"RPTELD"ANXT eX); 02789000 | @ 
§ oases ceensomumomobE NOT GENERATE THEN STARIGENS gn 2 
2 IF X70 THEN LOCALCX) ELSE 02791000 i 
:@ BEGIN EVLOJ**TALLY"$ EDITING( 1.5) END 02792000 1 @ 
8 eee ect ke ww EVLODCORNM(18N4216)5 LSTeds EUITINGC191)s 02793000 _. shane peated rete CRUG et Re Sit et a es eons eo! = 
: EVCOJe"(G86I"3 EDITING(195)3 02794000 a1 
& EN REPEATFIELDS 02795000 1@ 
iE REAL PROCEQURE  STATEMENTCJep>BNU)3 gga Se 
ra VALUE JeH3 REAL JeBs ARRAY BNOLO]S FORWARD; 02797000 34 
@: REAL PROCEDURE SETPOINTERS % EXTER WITH "SI" OR "DI", 02798000 31@ 
nec BEGIN BOE NEXT UNKNOWN, 294,61 “ERRSTREAM"s O2790000 pie Sencerercte Ea mh at et ee 29 
u REAL I3 Bo 1e355% EOFs BEGIN»s END, 02800000 37 
@ LABEL LioL2eL3eLXxoLe; 02801000 3 @ 
Wp BOGKEANCDEBUGN) THEN WRITECFOUrDBGs"SETPNTM>NXTIS _ 02802000 es Se senate 2 
; IF GENERATE THEW EDITING(1s2)s 02803000 ‘0 
@ | IF CIeCHECKNEXTCU6"e"( 36242260) 48 THEN 02604000 ‘1 
UX? BEGIN SETPOINTER*ERRSTREAMCI)# GO TO LE ENDS 02805000 __ _ ie 
IF NOT S@ANC1) THEN | 02806000 4 
IF GENERATE THEN EDITINGC191)3 02807000 4@ 
IF CL@CHECKNEXTC1))210 THEN 02808000 2 4 
BEGIN IF I#10 OR 1214 THEN ERROAD 02809000 1 
IF GEWERATE THEN EDITINGC1+NCRIS GO TO LES 02810000 «| 8] 
eee ee ENDS | 02811000, z 
IF 140 OR IFX*BLK THEN GO TO LX} 02812000 ‘2 
IF NCR&3 THEN | 02813000 5 @ 
a TF EVEOTACLSTIAIZ"LOC” THEN GO TO Lx ELSE 02634000 51 
BEGIN IF NOT GENERATE THEN STARTGENS 02815000 
EVCOIEMPOINTYS EVEL J©ORMERC"C1231817)3 02816000 ol @ 
eee __EDITING(1+8)3 BBKeFALSES 02817000, 7 sa 
IF CI©CHECKNEXT(1))<10 THEN GO TO LX2 02618000 . 
IF 1<14 THEN 02819000 | @ 
BEGIN ERROR wes 02820000 J 
@® 


Data Documents/inc. 


T ae @ 
| 
IF GENERATE THEN EDITING(C1eNCR)S GO TO L143 02821000 
@ END ELSE 02822000 ® 
eee BEGIN LOCALCIFX)$ rapid ice etaty che! mio te a OB SOOO: Le Tae cee nee ene ety ofl ae ene 
Lis IF NOT GENERATE THEN STARTGENS 02824000 
ry EVLO}*O&")"C18:4286)3 ECDITINGC1»1)3 02825000 10 
__ IF NOT GENERATE THEN STARIGENS sss BOO Se hte eee ee 3 
| ENO3 GO TO LES 02827000 ‘ 
@ ENO ELSE 02828000 |@ 
cuban rece et EE NCR 2? THE NR Te ee seen e BR OOOO ee, kN. 5. chsoreeieuntn Pcame ttl sacle Pte 6 
IF I*EVLO],Cistigi="SI" THEN GO TO L33 02830000 7 
rd] IF I8"DI" THEN GL TO L33 - 02831000 |\@ 
I SMSC THEN GO TO Loe an oe es BAD ON irotn eg casit ct Se ta ee oe es 9 
IF IT="D0C" THEN 02833000 no 
e" La: BEGIN ERRUKS 02834000 1@ 
Pe ee ee eee EE GENERATE THEN FOITING(Ie2)3 OSB S5 0000 ne og Md ade 2 
le IF I1,C42tO]="C" THEN GO TO LES 02836000 ; si 
@ ' IF CL©CHECKNEXTCH8"6"0 3624296) ))48 THEN 02837000 1@ 
Pace tua, Lo pekh whentlltP Tt THEN GOTO UK PPS E ee OPA BODO Sian. nencet ee Ee 15 
‘Ge IF NXT.C3686)4""" THEN GO TU LX; 02839009 ti 
ee” IF NOT SCANC1) THEN 02840000 "1@ 
ig SE RC TE aes . ater wae Ge NP RATE TREN POT TENG Oh 8 i a yl a te OP BWIO0 Ge css cael : ig 
Ei IF CI®CHECKNEXTC1))#2 THEN 02842000 bi 
@ | IF NXT,C42:60]40 THEN GO TO LX ELSE 02843000 Le7@ 
C Oe ee tee mT PO er OE * 1! © Pra nee REE ETAL ae ee eee DL ee Ve en ee a PE Niel TOON AMR 6 2. YC 1c 0 0 NOE TA Ma ee ed CRT ROO BT eT TORRY ae Te Ne Te nS a 
IF NOT SCANCQ) THEN 0284500¢ ; 
@ * IF GENERATE THEN EDITING(1¢NCR)$ GO TU LES 02846000 a@ 
a Lehn sie ghaatis Toho’ Gn OMS. y LateRaple een e El See hte: oh hchai ecient tet een ua as OREO, . A: Sh ath epee ee ea ce em ee 
‘ IF 1<10 THEN GU “TO OLX3) 02848000 P 
@ ® IF [<14 THEN 02849000 1@ 
ft toi sceoeeiacheate ton tal ua we EG TONY aR ep ps OO Naat Cn es ee a a se i ee 
IF GENERATE THEN EDITING(L,NCRI3 GO TO LES 02851000 . 2 
e ENDS : 02852000 21@ 
ea a ag eel taene e teteee URE RMP by CR Miler. 3 oy one el ee eee ee ale oe OOOO) Neuere efoto oe Se 
END ELSE GO TO Lxi 02854000 am 
er LE® END SETPOINTERS 02855000 1@ 
jo REAL PROCEDURE = PARAMETER(CX*I)s 5000 
VALUE Xol3 02857000 
e* REAL XeTs 02858000 1@ 
, ps sess coe ccs ta cece PIE LIN i he a a ee Sa IO choc te se 
” REAL PROCEDURE STORECXe1)3. 02860000 am 
e| VALUE XeL3 02861000 310 
il oss ses cc I Br sug Ss ne SR EE ae a te ors I ls eae a ee Feat ea ie OOO neo ‘ 
BEGIN 02803000 ‘0 
@ REAL Joks 02864000 «|@ 
LABEL —_—_——sL Ap Lo LXeL ES 02865000. —“‘i‘—s—s—S c 
IF BOOLEANCDEBUGN) THEN WRITECFOQUsOUG,"STORE “eNXT#xeldé 02866000 | 4 
@ IF 1<14 THEN IF GENERATE THEN EDITINGCL»NCRIELSE ELSE02867000 ad ® 
Pa aa wile eee BEGIN IF NOT GENERATE THEN STARTGENS K@LST ENDS 02868000 is 
IF CJeCHECKNEXTC4&"e"l 3634236)2)48 THEN 02869000 4 
@ LX3 BEGIN STORE*ERRSTREAM(J)3 GO TU LE ENDS 02870000 1@ 
pene iehe table IF SCANC1) THEN GO TO Lx3 ett ee ORB FT OOO = es. r 
IF I€14 THEN IF GENERATE THEN EDITINGC1*+NCRIELSE ELSE02872000 | fs 
@ IF NOT GENERATE THEN STARTGENS . 02873000 | £,; ba @ 
—— LF (CJ*CHECKNEXT(C1))#0 THEN GO TO LX; | 02874000 = 61 
IF IFX#BLK THEN GO TO Lx; 02875000 5 
e IF NCR=2 THEN GO TO L143 02876000 51@ 
NCR AS THEN GO TO LXE 7 7OD0 i 54 
IF CJ*EVEO)) «C1823072"TALLY" THEN GO TO LXS 02878000 8 6 
@ IF 1€14 THEN GO TO L23 02879000 | «| @ 
: dui eiee angst cee SO SAB OOO Uiesee. ite anos tn EY 
e@ @ °® 


Data Documents/inc. 


si 05 Eos ee SEN ee ee eS 
BEGIN 02908000 


sa Eo et i Ee OOOO ah an 


@ 
EVLO]]eOkMeEM LL 6sh4286)s ELITING( 1.193 02861000 
REPEATFIELDCO)s GO TO LES 02862000 
A LE OE VOT) EIB IATA MSI" AND wp LL Bti2)z"DI" THEN = 02883000... hip ae See a en ot 
L2s BEGIN ERRORs J,Ctiljel END ELSE 02864000 
IF 1810 OR I[sl4 THEN GO 10 Las 02885000 
a ere ee Oi Meee ©. tae Ao 2 ee ee ee a Gah ns Bits Shoe oe oon, AO O OD lesan acd cee bia doniase Vann eed 
BEGIN IF GENERATE THEN EDITING(C1*NCR)G 02887000 
GO TO LES 02888000 
- cto C ELSE ITF OT GENERATE THEN STARTGENZ oO OA BBO NNO i cece este nts eeten nee ee ene pi 
IF CIlecEvCOleINFOLC YX, C35%¢5),x-040183)). (1286))>5 THEN 02890000 
TRNSFWOSCEVE As INFOCX e C3585] eX C408 Bl eils 02891000 
oe ERA ROLODE saplics, sciaiea ee doe oi 8) oes iO 9 OO) 6.1 Disnacn ne aaa a eee tea ee 
FST¢€0s LST*#Ks EDITINGC 1,122 02893000 
EvCOleORrer(18t4e'6)53 LST#4s EDITING(C1 9193 02894000 
Siegert cee LF NORE? THEN ads ela a ES uaiae ats aioe et hie ree OE PO Oe el cana 8 nee ls Sree ae ee as 
BEGIN EVLOJ* ys EDITING(C 1,2) END ELSE 02896000 
BEGIN REREATFIELDCO)s CI[(9)-C36%6]¢1 ENDS 02897000 
Sesion WKE REND STORES Da pleen enh Mamet no GE ne Se hah tee LOSER OOS f rarer ee: 
REAL “PROCEDURE LOOPCxs,1)3 02899000 
VALUE Xel3 02900000 
EN SPE needa sant tsiati dae OD entries co Eel ae Onda ans tae ah aie A oe ae PL OOO: 2 : EO Paci rs ee Pee 
BEGIN 02902000 
REAL Ji 02903000 
veces oe BQOQLEAN. 0 ONS a Sa pips Staak eh ance Soh ined Sos eet Oi htt lke. a cata a eit g lh hes i cele oak fe pat OE ae 
LABEL LielLerLXtolL XelEs 02905000 
IF BOOLEANCDEBUGN) TREN WRITECFOUsDBGe"LUNP 3 “sNXTexe le 02906000 


IF SCANCO) THEN GO TO LX13 02909000 

oetweecanevmenee owbF Cy*CHECKNEXTCGR"C 0 3624236)))48 THEN GO TO LX% 02910000 Series os 
IF NCK>8 THEN ’ 02911000 
IF CNCRELEADINGOCEVEO),NCR)II>8 THEN GO TO LX3 02912000 

Dei oN sie omen nl DONE DOKe VEO Sa NC 1D Bn ote a oon ele OID SOOO ks oN inns edunesi lesan at eects Sean S. 
IF X>63 THEN X#X,0£4286]3 02914000 
IF X>9 THEN 02915000 

foibsce gat eal GTN IN ct A idee ee ee OO POOOO jin: ee fa ath my 
JeOR CX OLV 102 (1 B8*42soVBENTIERCX MOD 10) 02917000 
(24342:6)3 02918000 
ype a et i i un ee ee DO) ple elt tele a ey eS a ee a 
BEGIN J©O&XlL1834236)3 NCReL ENDS 02920000 
END ELSE 02921000 
7 __. BEGIN IF 1«<14 THEN. ERRORS Je! JtEVCO) ENDS 02922000 
IF NOT GENERATE THEN STARTGENS 02923000 
EVCOJe"THRU "3 EDITING(195)3 02924000 
Re eee F_1<14 THEN Ge et ee et OE WED nae . 

BEGIN EVCLO]*us EDITINGC1»>NCR) END ELSE 02926000 
REPEATFIELOCX)3 LST#eFST«03 02927000 


EVCOJ¢"D9 "i EDITINGC492)8 


oreo Sa OBR EEO0G. + 2. 


IF N@NEWCD THEN EDITINGCO*AVC)3 02929000 

IF SCANC1) THEN 02930000 

rage BEGIN J«0;3 02931000 
LOUP*+ERRSTREAM(J)3 GO 10 LES 02932000 

END3 02933000 

I F.NOT GENERATE THEN. 2934000 | 
BEGIN STARTGENS 02935000 

IF N THEN 02936000 


BEGIN BBeREALCNe £36%9))3 
ENOS FST#O3 02938000 
EVtO]+"BEG ING) EDITING »5)5 BBKeTRUE} 02939000 
00 iC # STATEMENT CCHECKNEXT(1)009A)2 THEN GO LX#02940000 


CIVALID©FALSE ENDS 


OBO O ie oh eis 


Data Documents/inc. 


@ 
| 
| IF J#2 THEN GO TO LX; 02941000 
eo. IF NXT,L36f0]5"3" THEN 02942000 
Mihlioat ectewumsie cee tags — i: aa cllae hs axltiencete cA RTNS t Shak ct ha Nt al pa la et ADE SIO sa yaiee sts ae eae 
1 IF SCANC1) THEN GO TO LX13 02944000 
@ ': IF GENERATE THEN EDITING(101)3 GO TO L13 02945000 
e Fe Ri eet cts WS oh oh es olen Cee NDB = af a= - Pad Soren BV EGOOO 8 Fe nshatctes eons Da at ake poe 
M4 IF NXT,£3626]4")" THEN GL TU LX3 02947000 
@|: IF SCANC1) THEN GO TO LX15 02948000 
. Fee oA eS EEN EN Ee: HEN STARTGENS og ad 02949000 Bs adie, Ati e iia at eet os 
7 “IF NUT NEWCD THEN LST¢FST€O3 02950000 
@| EVCOJ*"END "S EVDITING(C153)3 02951000 
3 ie cana tice seve cee, fe ctM eae: UB ANN UNM se Winco ete het, ht SS at Sete Le secre nay sl ah ta esi te Se ee OO Oia cj sy Bact that APES ae ees ole et eS setts 
po REAL Jek3 02953000 
eo, LABEL L1sLlE3 02954000 
Me fide NS oa oes saath eaten enicess, ali ilacdeeaebeee tees TREN, SGU FG Mis oc Savas Soa ce st ea Says OO DIO 8s ticles Se ae can 
3) JEVCOIBNCREIPZ1E4793 02956000 
@« KeCHECKNEXT(C48%("03634236))3 02957000 
De eM yo ht . NORE CEV EOD ee CEPI7VR OB OOO geo ee oe ee 
iol IF BOOLEANCK) THEN 02959000 
@” BEGIN 02960000 
eS attend Benson TE GENERATE THEN EOITING(IsNCROE. UU 9000 - 
cm IF Kz3 THEN BEGIN EVCOJ**"BEGINGS NCR*S END ELSE 02%62Q00 
@” IF Kz5 THEN BEGIN EVLOJ*"END "3 NCRe3 ENDS 02963000 
ee PAR AMETEROERBRSTREAMCK DG GO TO LES UU eg éMaOO Sets. shtce fens 
a ENDS 02¥%65000 
@ i IF K#8 THEN PARAMETER®©STORE(4*1) ELSE 02966000 
leeeeecectne? & tT on neck PAR ANE TER COP Cio 8 os nce a eos ie eed oe eo ee SWB LOOU. teas CF ian 5 Sage tee ot cee ee a ee 
LE’ END PBARAMETERS 02968000 f 
@ REAL PROCEDURE TALLYS 02969000 
eat Ae Sh sce ttot fe YN FO ER Pe fp OE rete _ 02970000. 
REAL 1»B3 02971000 
@ LABEL LOsLisL2eLXeLes 02972000 
VCC BOOLEANCDEBUGN) THEN WRITECFOUsDSGs"TALLY “oNATIS = 297000 
IF GENERATE THEN EDITINGCL»NCK)S 02974000 
& IF CLECHECKNEATC4& "6" 3624226]))48 THEN 02975000 
PO XE BEGUN TALLY©ERRSTREAMCT)$ GO TO LE ENDS = = = 2976000, 
“Oe. IF NOT SCANC1L) THEN 02977000 
@ IF GENERATE THEN EDITING(151)4 02978000 
Oe, Geen Veet gd PR CTO CHECKNERT CI 29210. THEN. Rp ecadindefetie, ty Aa Date Ta ot aes ch ng OO bec tobacco t Sis Sian anata! 
. BEGIN IF T<iq THEN BEGIN ERRORS GO TO Le END3 02980000 
REPEATFIELOCIFX)IS GO TO LES 02981000 
peeves dt oon NDP : = FSCS 01 le eee 
IF IS2 THEN 02983000 
L1s IF NXT,£L423674%0 THEN GO TO Lx ELSE 029849000 
ideas io be NS a a a i oe SOOO ee ee et, 
IF NOT SCANCO) THEN 02986000 
@ L2s IF GENERATE THEN EDITINGC1+NCR)S GO TO LES 02987000 
eee ae sales ease MONI a ot ae eS __ og9aso0nt—“Cs—SSCSS 
IF BOOLEAN(B) THEN GO TO LX3 02989000 
e IF 140 THEN GO TO LX3 02990000 
eX BEK THEN GO TO Lxe Se le Sind eh OO OOO an ee oh oe 
IF NCR45 THEN GO TO LX; 02992000 
rd IF EVCO],018830)4"TALLY® THEN GO 10 LXxs 02993000 
ice sepurs a CRN AT HEN TIN R 02994000 
GQ TO IF CI©CHECKNEXTC48 "4" 36342:6)))=8 THEN LO 02995000 
ELSE LXx3 02996000 
% ENTER WITH "GO", 02998000 


REAL PROCEDURE GOTOs 
__ REAL 


BEGIN % 0% NEXT UNKNOWN. 
E , on i} a 


294963 
", “FE 


"ERRSTREAM".02999000 | 
*. 


Data Documents/Inc. 


Y a @ e 
| 
| LABEL ere eres 03001000 
eo IF BOOLEANCDEBUGN) THEN WRITECFOUsOUGs"GOTO "sNXT); 03002000 e 
Noes dle caeeles torela abana tia ere GENERATE THEN EO DUING ClanCh THE ORM Gs. 50 ACO 1000 <ce o pa ce ce SS al tt al tt RE Ts 
f Lit IF BOOLEANCIe©CHECKNEXT(1)) THEN 03004000 
eo: Lx! BEGIN GOTO*ERRSTREAM(1)3 GO TO LE ENDS 03005000 :/@ 
De eee eee ok te eee eteins, core cag nahe ean deere NGO TOR: Seno 1 ae alias Mion ey hel le ol OU OO Os ies. 8 wa deeleses dt el ceseaenn tea 3 
‘ IF IFX=DFX+23 TREN &% THe WORD "TO", 03007000 bs 
@ |: BEGIN IF BOOLEANCJ) THEN GO TU LX ELSE Jed 03008000 |@ 
Bln ates Sohn pane __IF_ GENERATE THEN FOITINGCIeNCR)R. GO 10 Lig. 039009000 ——(i‘ié‘;; UU 6 
i END3 03010000 \e 
@: IF IFXSBLK OR IFXSLFX THEN GO TO LX3 03011000 : 
nero Sree IE GENERATE THEN EDITING(1eNCR)3. ss 8012000 sified cts 9 
to LEt END GOTO; 03013000 to 
@ REAL PROCEDURE JUMPOUTS 03014000 1/@ 
Saco csed e, SUN G Nie ty ot it osha Se eal a Di Gia octets Led Narain: COS OOO. s, By Aesth cic ee 
REAL Jools 03016000 "9 
e) LABEL Lisl2eLXoLEs | 03017000 @ 
oF NOT GENERATE THEN STARTGENS LeLSTs = 03018000 . Sah ea elo tert Le 
IF J©CHECKNEXT(1)#0 THEN 03019000 16 
e LX? BEGIN JUMPOUTFERKSTREAM( J)3 GU TO LE ENDS 03020000 /@ 
ree _. AF TFXZO0FX4+15 THEN GO TO LXs Jit en DAUELOOO. ~. ee cok Lea Bi fa ee rts mete 
“IF NOT GENERATE THEN STARTGENS 03022000 19 
®@ IF (J@CHECKNEXTC1))S2 THEN 03023000 J @ 
= BEGIN. i ta any ea hn pe Eh cepa ee ce OE W000 2, cle) Sia 21 
Lis IF NXTeL36360)="5" THEN 03025000 2 
@» L2t PEGIN EVCO]*"JUMP "3 LSTeLs FST€Os} EDITINGC195)% 03026000 21@ 
: ob VEOTEM GUT 3 ERROKS EDITING( 12303 027000. Bsn ee Rye ee ee 
IF E#0 THEN 03028000 2 
@ BEGIN EVLCOJ*ES EDITINGC15E.01226)) ENDS 03029000 | @ 
A oe hscse he ellie Sie nse I POU es IG PG ES on 2 Beep ha et ets SOOO ODO ee lt eee necatecstle oS mee 2 
ps ENO; 03031000 a 
e@ IF NXT.C3686]=")" THEN GO TO Los 03032000 @ 
se crattyt gitai 32 Senta ot PESe Se Oe THEN GU STOOL tan oaks emcee ol 09093000... Fee Paseo ce ae ate 30 
IF NXT.0C4286)40 THEN GU TO LX3 03034000 ia 
@ IF SCANCO) THEN BEGIN Jeos GO 10 LX END; 03035000 ® 
ee ; _.IF. NOT GENERATE THEN STARIGENS ss 036000. hn A cA tthe 33 
, E*EVLOJENCRI1284226)3 03037000 
@» IF (J*CHECKNEXTC1))=2 THEN GO TO L413 03038000 5@ 
i : ES eerie? Ba Ne Beers ar crag RE Me Eig ates oh OOS YDOU  %., ae Pe ee 36 
IF Js5 THEN GO TG L2s IF Y*O THEN GO TO LX3 03040000 a1 
@ IF IFXsDFX#9 THEN BEGIN Je6s GO TO L2 ENDS 03041000 4@ 
vee dF IFXFOFX429 THEN GO TO LXS 03942000 _ 

IF NOT GENERATE IHEN STARTGENS 03043000 40 
eo EVCO]e"GG Tu"s LoTeL3 FST*#O$ EDITING(125)3 03044000 @ 
CO CHECKNEKTCI29 #0 THEN GO TO LXE 03045000 42 

IF IFXSBLK OR JFX<LFX THEN GO TO LX3 03046000 4 

@ IF GENERATE THEN EDITINGC1,NCR)3 | 03047000 l®@ 
EE END JUMPOUTS Se st St ee eo oe oe  OBORS OO... _ baa 
REAL PROCEDURE IFSTATEMENTS &% ENTER WITH "IF". 03049000 ‘6 

@ BEGIN % O8 NEXT UNKNOWN, 294968 "ERRSTREAM” 03050000 7 @ 
a Anes aah ; er p3s5t " pa ene toa en 48 
ARRAY ECO?8)3 03052000 “3 

@ LABEL LOsLioL2eL3-L4oLxXrLes | , 03053000 so @ 
F BODLEANCDEBUGN F Ge"IF STMT" »NXT)S ee ae een eee 51 
IF GENERATE THEN EDITING(1>2)3 % THE WORD "IF %e 03055000 5 

@ | IF BOOLEANCI*©CHECKNEXTC1)) THEN 03056000 j@ 
—————______LMt_.__REGIN IFSTATEMENTCERRSTREAM(I)3$ GO TO LE ENDS | 03057000... eT er 64 
IF 182 THEN 03058000 55 

@ IF NXT,C42#6]20 THEN 03059000 | @ 

‘ SIN 2 03060000 
@ ® °@ 


Data Documenis/inc. 


Q 43#53<34 TH 


IF SCANCO) THEN GO TO LX3 03001000 
ELOJeEVECOIBNCRL 1831217); 03062000 
www FONCR?S THEN JRNSFWDSCELII2 Eve i)» (NCR+2),.(3039)73 03063000 .. aster eats Cue rene bape woo 
IF NOT GENERATE THEN STARTGENS 030640C0 
IF CI*CHECKNEXT(1))40 THEN GO TO LX 03065000 
_IF_NCR42 THEN GO TO LX ELSE. Tae 93066000 ere eee eee 
BEGIN J*EV(O).(1831233 GO TU L2 ENUS 03067000 
EXC ELSE GO TO Las 03068000 
wane EF [210 THEW Oe aE tee ES ae SR OQ3069OO0 
BEGIN IF I€14 THEN ERRORS 03070000 
ECOJe*7RIFXL390835813]3 GO TO LO} 03071000 
eee END so tah SA eo = Soa soe a hg hn eh tl A Sle ace oe CI Oa Sy onl eal ac eh 
IF I#0 THEN GO [U LXxs 03073000 
IF IFX#3LK THEN GU TO LX; 0390/4000 
fettedev aint & Pe WOR RO ENS en eS ah Bc AUT SOOO. cave 2 og to oie 
IF EVCO],. C18:30]4"TOGGL" THEN GO TO LX ELSE 03076000 
BEGIN Jere; 03077000 
IF COMPAREACEVE LI) »J202721)40 THEN GO TO LxXs 03078000... ers 
ERRORS IF GENERATE THEN EDITINGCL*NCRIF 03079000 
GO TO 33 03980000 
EN GLUEL SE .. Pees ead ates the Geen aN ee eae ots cael ea OO pain teeta letnat ua Rape Sahat st teat 
IF NCRZ&2 THEN Tait To LX. 030862000 
IF JeEVCOD.Ci8ti23="SB" THEN GO TO L143 03083000 
ALK AZNSCM! THEN GO TO bye OFOBMA OOD Serene eee ere 
IF NOT GENEKATE THEN STARTGENS 03065000 
LF CIeCHECKNEXTC12)42 THEN GU TU LXx3 03086000 
AE YOeNXT es L308 GO72Z"S" THEN. TE Ye" Ss" THEN OO. Og087000 .. Se es, 
IF gas" THEN IF gerzn THEN IF J#%>" THEN 03088000 
IF JA"#" THEN GO TO LX; 03089000 
erred Oe SOW 79 fa Gea OF 21 ts Oe ae Jl 2h appear DRO PR Pose UR re ce SPIE PR Uae! Oc 08° 47 CL 6s EA ne a ec er Reet ae ere 
IF NOT GENERATE THEN STARTGENS 03091000 
TF BOOLEANCI*©CHECKNEXT(C1)) TREN GU TU LX 03092000 
Solotencwci JF NOT -GENERATE THEN STARTGE WS. —~O3093 000 
IF I%2 THEN 03094000 
IF NXT, C368674""" THEN GO TO LX ELSE 03095000 
Seeds Se Re NS ETN ne cs ee ee ae ee ee ee OS BONO) ree eae 
IF ECO]40 THEN GO TU Lxs 03097000 
EVCOJE"STI “80308425635 FSTeOs EDITING(153)3 03098000 
se STN eg eG ce Se ee cs ee Sonera ©: LO A 10 01 ¢ Rae 
ENDS 03100000 
IF [40 TwEN GO Tu LX3 03101000 
Pee) © seek 0 iy, Wy ae <A) [oO RE RR eR Raloe we ren eee eee OS PUZ000 is eee Set 
BEGIN % "ALPHA". 03103000 ’ 
IF ECO)40 ThEN GO TO Lxs & BAD ANY WAY, 03104000 
IE We” THEN GO TO UM 09105000 | 7 
EWCOJe"REALC 9S FST#O} ENITINGO125)3 03106000 
EVCOJe*Sro4 "2 ENITINGC 195)3 03107000 
__EVEOJe" IN 3 EDITING( 12373 ese SEU BOOS oie oon ole ae Son 
EVLCOJ]"ALPHA"? FST€O3 EDITING(1°5)3 03109000 
GO TO 33 03110000 
ogre oe 141000 2 
IF NCR#¥2 THEN. GO TO Lx 03112000 
IF EVCO).Ci8si2)4"0C" THEN GO TO LX} 03113000 
EVCQJe"S78SI%3 FST*&Os EDITINGC1°5)3 03114000 
EVCOJeoeuliss42ie)s FSTeags EDITING(15193 03115000 
EVCOJe"OLSOI"s FST#O3 EDITING(195)3 03116000 
EVCOJe"FOR "s EDITING(193)3 03117000 aan 7 
IF €£037<0 THEN 03116000 
BEGIN 03119000 


(si OOD é ap mi ae, Aen an si 


: 
@ | 
BEGIN 03121000 
@ IF JeCEVCQ]e™INFOLCIeE(O)),03025)91,035%8))), 03122000 
Re ire ly Liimesmespepeemeuht 226125 THEN. ee ae a eee OT REP 618) =r | oa ¢ eer necet eros aera Piet 
ie TRNSFWOSCEVCAI> INFULI«L30%5] 014603528] 41) 03124000 
@': (J42).03619)03 03125000 
\3] : ere samen: 4). ce 1 Seen en ee ae eS eee eet ORES OOOO tt Se ae os mes 
ag BEGIN REPEATFILELDCELO),(30813))3 GU TO L3 END; 03127000 
@|: END ELSE 03128000 
| eee ata te Fe nae 4TF_£f£0)=0 THEN EVCO]¢Og( Jet )( 1224226 6151834216) ELS |S) EW 0 0 Oe oe 
I7 IF (JeCEVEO)*E(0)2.01286))>5 THEN 03130000 
@: TRASFWOSCEVOE LI SEL LI» (542)6L3689] 95 03131000 
ea eee ee a ee come RDITINGC Des )R a azoon ee ga 
10 L3: IF C1leCRECKNEXT(1))40 THEN GO TO LX; 03133000 
Lae IF IFX#DFX419 THEN GO TO LX3 03134000 
— eee neeer mens tte anne GENERATE THEN EDITINGCL»NCR)S poem 1.3.135000 capt Tees iad, 
’ IF CIeSTATEMENTCCHECKNEXT(1),00E))#2 THEN 03136000 
@ |. Las BEGIN IFSTATEMENT¢I$ GO 10 LE END ELSE. 03137000 
{nn dS THEN GOTO LO ELSE IF 1¥6 THEN GO TO Lys. 03138000 . Bs es ea eee 
be IF GENERATE THEN EDITING(1sNCR)S 03139000 
eo. GO TO IF CL©STATEMENTCCHECKNEXT(1)209E))=2 THEN £4 03140000 
eee ee ee Re ere Coenen cen SE AF 155 OR Te6 THEN Ld ELSE LXs 0 93241000 | ar tore ne ee ee Te ae 
o LES END IFSTATEMENTS : 03142000 
@» REAL PROCEDURE TRANSFERS 03143000 
i. pn BEGIN S-SannnneeeeeeeeeEEROUEEERUEIN © 0c WY V0 0c 
: STREAM PROCEDURE ADJUSTCUsNCRe NMR) 5 03145000 
@ VALUE NCR» NMRS 03146000 
rein ce cn ie el Tn tn nein BD OOG ooo cee pecan tale a tute ede sey 2 tie 
DI*O3 Dlepl43s ULleDIeNcR: 03148000 
@ SI*Os Sy*S[433 03149000 
g i NMR COS OCHRE NCRODLS Di encRs Gesls sted)? omer 0 kc OVO 9 Ya Oa ate n nee 
2 END ACYUST3 | 03151000 
2@ REAL Le doK3 03152000 
3 wwe wn ARRAY CE LOSB eg 53000, pate AB cere a oe tt P aaa, Sentrs 
a LABEL LislLesL3slaeLXoLlEs ‘ 03154000 
&@ * IF BOOLEANCDEBUGN) THEN WRITECFOUsD8Gs"TRNSERs NXT); 03155000 
eBid icts ke aioe heat sh aad AEC De CHECKNEXTOC4S"O"03634236)))48 THEN . 031546000 Sb hp ti sg RR ae asst oy Fete Sh cco 
LXs BEGIN TRANSFER*ERRSTREAM(I);, GO TO Le END; 03157000 
Or IF NOT GENERATE THEN STARTGENS 03158000 
Pe eee SO verre EV LOTEMREPLANS EVELTCOR"CEMLES3791135 FDITINGS I 2723 03159000 A at oe te ge 
EVCOJeMDTFDINS FSTCOF EDITING(C1s5)3 03160000 
EVcCO]+"B¥ "3 EDITING(192)3 03161000 
enn nnnteenasean areca ES GANOR) THEN GOTO xp 0 aezoog 
IF NOT GENERATE THEN STARTGENS 03163000 
IF CLeCHECKNEXTC1))"2 THEN 03164000 
Seah ane sehen can H2%6)#0 THEN GU eae les fon 
IF SCANCO) THEN GO TO LX ELSE 03166000 
BEGIN. IF NOT GENERATE THEN STARTGENS 03167000 
Se eee : "NCR>8. THEN SMe ane eS 03168000, a 
IF CNCR*LEADINGOCEVECOJ,NCR))>8 THEN GO TO LX3 03169000 
IOCVRICJ*+EVELO]>3sNCRO1)3 03170000 
eee eee ee > THE J Hy :0 ; een OS ATA OOO! oe oy 
ENDS "s 03172000 
IF 1210 THEN | 03173000 
CRE GIN IF NOT GENERATE THEN STARTGENS 03174000 _ : 
IF I<14 THEN ERROR; 03175000 
JOMIFX@REALCIK14)039084721)3 03176000 
La Lit L¢CHECKNEXT(1)3 03177000, 
END ELSE Jel} 03178000 
IF 170 THEN GU TU LX. 03179000 
IF TFX¢BLK THEN GU TO Lx# 03180000 
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ee 
| 
| IF NUT GENERATE THEN STARTGENS 03181000 
e@ IF NCR#3 THEN 03182000 
Sep ie tel eee bes BEGIN ERRORG ae Seg i Pramiegaen nes dena ee ee a OSA SO OOS -<, 
ELOJ+EVCOJRNCRI 123421643 03184000 
@. IF NCRAS THEN TRNSFWOSCECIIZEVC LI» (NCR4+2),(3629))5 03185000 
Ne soe Hera ad, saree eset OLIN get tee oe ee LA OOOO™, ee 
‘ IF KeEVLO].C16¢182="LIT" THEN 03187000 
@: IF J<O THEN GO TO LX ELSE 031488000 
Bf nee oe ie nee on CLO CHECKNEXT (HSMM 30242261) )28 THEN GO TO LX ELSEQai1avooo |... 
7 BEGIN K*CC&NCDL9% 2722133 03190000 
@: CC#IF (leCCe €30831)=7 THEN CCe caavisiet ELSE 03191000 
Plaats tea eer se ts aoe ee OR Ladd Oe dp a ch as. cis Se EET COTO 0G S100 0 Deer eee eee eee ee re 
be IF SCANC7) THEN GO TO LX; 03193000 
@' IF NEWCARD THEN 03194000 
Oe census twee BEGIN IF GENERATE THEN CVE9Je(47shJe1s ORs 0 8 SS 600 Seen 
ha BBB©O3 NEWCARDeFALSES NCE*NCD3 03196000 
@ ': IF REALCRESQ)41 THEN TRNSFWOSCENGsCVEL11)01)3 03197000 
RL career aee! Bie on Ac 32! |0 ee eee a erisersss cae ne a eet oa FE OOD aio tos cave tmnanie ae 
vl TF NXT,C3026)=""" THEN 03199000 
e” “BEGIN EES, 030!31]¢43 032v0000 
Rae ae Sos nine weil E CLleCCel3031 57 THEN Co,L33215 34) ELSE 03201006... 
is CCRC141)139024523); 03202000 
e~ IF SCANC6) THEN BEGIN EET*ESTS Go TO LX ENDS 03203000 
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2) END ELSE 03205000 
@* IF SCANC6) THEN GU TU LX; 03206000 
eee ee nT Oa ree AE ea NC RE ese he a re a cen ee COT OOD 
: IF NCR#1 AND NCRZ2 AND NCR#4 ‘AND NCRZ8 THEN 03208000 
@ x BEGIN ADJUSTCEVLOJ*NCRsJ@NCR)S NCRedS 03209000 
y eee ae Nee ee ee __IF_NOT GENERATE THEN tO 
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@* EBVCOIe"STISI"S FSTCOS EDITING C195)3 03218000 . 
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? IF J<O THEN 03220000 
@« BEGIN 03221000 
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, BEGIN 03223000 
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TRNSFWDSCEVE Jae INFOCU,C358Slade Caorejeil, 03226000 
@ 7 | C142) 03689))5 03227000 
Site es te set at Sor at _ EDITING(121)3 _ 09228000 
END ELSE RERPEATFIELDC*U)03 b&LST*#O3; GO TO L4; 03229000 
Ld END} 03230000 
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eet ie ae t att 
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@ IF K#"CHR™ THEN 03236000 
gt a ee OE BO tS pe 
IF KeCEVCOJ*EL02),0C1286)>5-THEN | 03238000 
e - TRNSFWDSCEVE1IFECL I 9 CK +2) 063699))5 03239000 
_FST+ | 2 4OD00 
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ENCS 03241000 
eo. LE’ END TRANSFERS 03242000 
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4 BEGIN 03244000 : 
@: REAL legs 03245000 
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fo ERRORS 03247000 
eo: IF GENERATE THEW EDITING(1»NCR)3 03248000 
(| eee sep — AB tLe ce Cane xt Coa" 96:42!6)))48 THEN 03249000 _ _ 
7 Lis BEGIN RELEASTATEMENTe*ERRSTREAM(*7)s GO TO LE ENDS 03250000 
@: JOLFXS LFXENFXS  STRMEFALSES 03251000 
i ee ee —TeBRACKETC")%p1)3 LF Xess STRM*TRUFS 2000” z 
mf IF I=0 THEN 03253000 
@; IF NXT,C3626]4"3" THEN BEGIN le=os GO TO Li END ELSE 03254000 
be one hfe SMS eS a aah ees et a ee ei A A SPO OOO 
; IF If4 THEN RELEASTATEMENTeI; 03256000 
rd) LE END RELEASTATEMENTS 03257000 
REAL PROCEDURE. STATEMENTCJeBeBNGIE gO 
VALUE Joes 03259000 
e REAL Je Bs 03260000 
sett Eee RN, ceil NOOO Dec ce os ng eels ts ee Btn ee Ge hae ate oe LO OELL 
| BEGIN 03262000 
@ : PROCEDURE SETYPECXsI)3 03263000 
| ae VALUE. i RON se ht Daca arcane ue wah hen aoe Sate Btn a ot ee PGR OO cee 0 22 onde cae n 
22 REAL Xols 03265000 
Ow BEGIN 03266000 
Boe id tee DN rere NB nS lt Sale Oa I Se, Dey Na ae iy ee yee gs ote OE BO) 
ARRAY ELO?8)3 03268000 
@: IF BOOLEANCDEBUGN) THEN WRITECFOUsOKG,"SETYPE "s+ nXToXeleNEWCD)S 03269000 
E oD _NDeCNEWCD AND NOT BOUFaNCL)) THEN 0 gagzoogg, 
2 BEGIN 0032/1000 
c@ NEWCD .C2739JeBOULEAN(UB)$ BHeREALCNEWCD),(36%9)3 03272000 
3 nents Aeucient om CRD ta ls oa eet a2 ink Pe Ee ie Eta (eter «4 2x (a 6 6 en Fe ee or ES 30 
: IF NOT GENERATE THEN 03274000 é 
s@ BEGIN STARTGENS IF ND THEN CIVALIDeFALSE END: 03275000 no| @ 
bs _TRNSFWDSCELOJ*EVEOI+(NCR+10) 06 36:91)3 03276000. _. eT ee ee 3 
IF I#0 THEN 03277000 34 
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IF NEWCD AND BOOLEAN) ‘THEN EDITINGCOsAVC) ELSE 03280000 37 
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ee Le see eee (142)0l36:9193 03285000 ee 42 
EDITING(19°1)3 03286000 ‘ 
EVCOJ*ORMeMC1Er4eteis LST#4s EDITINGC121)3 03287000 4@ 
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ENDS EVCOI*OR"S"(48t42te]3 EDITINGC 19122 03292000 as 
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ENDS 03353000 
82 TH 03354000 _ . 
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; N¢J hE > wicten 
IF JO THEN SO ELSE “$43 : 03358000 
IF NOT BOOLEANCY). THEN ed TO ‘Xs 03359000 
s pt oo OF SOON 00 ce 
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LABEL LCrListeeL 3s 03301000 
@ LABEL BO»B81sR129B2,b33 03302000 
Rf SelM Ente SO pS Lp ep S39 eh OO AOOO... oe 
‘ LABEL LXeLE3 03304000 
@» IF BOOLEANCDEBUGN) THEN WRITE CF OUs DAG "STATI" + J9B)3 03305000 
| een eee eI 5 FADSCBGGLOl»sENOLO]e1)3s GO TOL; 03306000 © coh cg ieetea teak 
4 “Lor JOCHECKNEXT(C1)3 03307000 
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’ BEGIN 03310000 
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@" IF J="OS" THEN 03317000 
fo Ana ee ee GO TO LF (JeTRANSFER)S5 THEN S3 ELSE = az BOOOt—‘“‘“‘(i;é 
we IF BOULEANCYJ) THEN BO ELSE 03319000 
eo” IF J=0 THEN SO ELSE SL ELSE 03320000 
Deceit tote, ape wg ETN Og ae TD DN sg nee le Oe | OOK oe cat tie dnaset dead alee wed Seok 
19 IF NCR=5 THEN 03322000 
@ 7 IF EVCO].C1LSt30IS"TALLY"™ THEN 03323000 
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pe IF BOOLEANCJ) THEN BC ELSE 03325000 
@ 1F vO THEN SO ELSE S15 03326000 
Ee cocoon Sei a Me i Mie nn te 0 8 OT OOO. «so teh ee RS Lame, 
IF EvlCO})eCi8s243=" JUMP" THEN 03328000 
Y 60 TO IF (J*JUMPOUT)©=5 THEN S3 ELSE 03329000 
em a KE BOOLEANCJ) THEN BO ELSE = 3330000 | ig Pec co 
IF J=O THEN SO ELSE S15 03331000 
é Lx GO TO IF CU*ERRSTREAM(U))55 THEN $3 ELSE 03332000 
2 amit ete tthe ODOR EPAN CI) THEN BO FUSE 09999000... 
IF Js0 THEN SO ELSE S13 03334000 
END ELSE 03335000 
‘ —LF_IFXsOFX+17 THEN % THE WORD "IF", = = = = = 03336000 ——s—isis 
GC TO JF CueJFSTATEMENT)©5 THEN $3 ELSE 03337000 
IF BUULEANCJ) THEN BO ELSE 03338000 
eee WeO THEN SO ELSE Si LSE _ ween __ 93339000 — - sees eens , 
IF IFXSUFX421 THEN % THE WORD "GO", 03340000 
GO TO IF CU*®GOTO)85 THEN S3 ELSE 03341000 
cnn s1mueu IF BOOLEAN(J) THEN BO ELSE ta eae. 342000. 
IF JsO THEN SO ELSE S1 ELSE 03343000 
IF IFX= ee THEN & THE WORD Ca eoore 03344000 
won GO TO TF CJeRELEASTATEMENT 29 THEN S¥ ELSE 03345000 
IF BOOLEAN(Y) THEN BO ELSE 03346000 
IF JeO THEN S50 ELSE S1 ELSE 03347000 
sPesgeiee asian oats Ce Ne sae 0 eT SE Se EMME SEE 6)”. 11s ee 
BEGIN 03349000 
3 GENERATE THEN EDI LENG CieNGH yy 03350000 
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IF DFINE THEN 03365000 2|@ 
~--~~-—-BGNENDCFOUCO)» LP BLKCNTsSTRIOs 4A)» 1+STREOPI7)> 03366000. sss 3 
BQGLO]) ELSE 03307000 ‘ 
IF NCO=NCO*2 THEN 03368000 |@ 
snecrinn names ee mens ssa en nen PONENDCFOUCO) >» LoBLKCNTsPPCLI4 JeOsHGGlII»BGGLOIIELSEQ3369000 ss si yaad nes eee 6 
IF NCORNCD#=1 THEN 03370000 : ? 
AGNENDCFOUCO)»1*+BLKCNTsPCL11I35028GG601)-BGG001) ELSE03371000 3|@ 
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RELEASE CFOU)3 03373000 19 
IF GENERATE THEN EDITING C1eNCRIB 03374000 /@ 
Teno Te See ee ead ——AOSTATEMENTCCHECKNEXTC A), 1e8GG)3 a en MODS I OD at ciscen hI cia cere F See ceer 2 
TRNSFWOS(HGGLO)*BGGL1]s1)3 03376000 "9 
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Rg ee eae RN aaa a en a ale ee he re IAG OO Lk. ,S. BE eo ee gest 15 
IF BGN THEN 03379000 "6 
BEGIN ved; 03380000 |@ 
. BLO TE Teg (34813170 THEN SETYPECTeBL11$i)ey)e 3.381000. a GR ore, See sp oe "9 
IF OF INE THEN 03382000 . fs 
RGNEND(FOUCO)*0*BLKCNTsSTRLO» 4g] + 19STRLOP17)¢5 03383000 4 @ 
= wove BGO) EL Se RB4OOO. he at or to Ee aos 21 
IF NCOMNCD#2 TREN 03385000 22 
BGNENDCFOUCO) s0+BLKCNT »PRCLI1),0,HGGE 1 J,4GGL0})ELSE03 386000 21 @ 
= emmeeomn PE NCOSNC IL Then ere ch a0 6 8 See Peaeraenseel Reed a 
BGNENDCFOUCO )+O*BLKCNTsPCL11]*0+BGGL1]»BGGL0]) ELSE03388000 2 
@ BGNENOCFUUCO)s02BLKCNTsCVL11)%0sBGGL1]*BGGL03)} 03369000 r| @ 
2 BLKCNT¢*BLKCNT=43 03391000 e 
:@ Bet IF GENERATE THEN EDITING 1e¢NCR)5 03392000 21 @ 
3 ani BSE TeX LEXONEXG ENDCMMT@ TRUE 8998000 30 
ee i J¢CHECKNEXTC1)23 LFXeIs  ENOCMMT©FPALSES 03394000 e 
s@” IF BOOLEANCJ) THEN | 03395000 2 @ 
Dehetre ot eer tte tem GO TO IF 383 THEN B2 ELSE Bis pases ts ee eet ORI IOOO 0. oe) ct eee Pa ne ee ne el te 
IF Je2 THEN 03397000 : 
e» GO TO IF leWxXTel3626)="5" THEW B1 ELSE 03398000 33@ 
aes eae Ne tka ital ance cone FP Te")" THEN 8 1 ELSE IF J5"." THEN BL ELSE 03399000 pata ee ae ae Se oa Be ee eo ae 
37 IF SCANCIF NXT.Cu2:6]84 THEN 1 ELSE 0) THEN 03400000 7 
°F 43 ELSE B23 ~ 93401000 @ 
bi + nee dO REN 034 ee - 
IF IFX=DFX+9 THEN BEGIN J*6s GO TO BL END: 03403000 40 
@ GO TO B23 03404000 a1 
= ‘ 2 345 42 
JOCHECKNEXTC1)3 nee 03406000 i 
@ IF Jeo THEN GO TO Lx ELS 03407000 | 4@ 
——__—[F_J80 THEN IF IFXeOFX49 THEN veos 03408000 ee 49 
IF J®2 THEN 03409000 6 
6 BEGIN 03440000 | @] 
© NX OPOjsnzn O341j000 __ | 
IF 8GN THEN a on a 03412000 " 
e BEGIN ba aoe ce 03413000 bl @ 
: " : 4 > | 51 
IF GENERATE THEN EDITING(11)3 GO TO LOS 03415000 | 5 
@ ENO ELSE 03416000 =|@ 
BEGIN a a OO 8 ‘ 
IF 1¢8,034t13]40 THEN - ae 03418000 ;_ * = 
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@ q 
| FNO# GO TO IF Wx1.l3626J=")" THEN B1 ELSE Lx: 03421000 
e ENDS 034z2z060 q 
~-TE 36 1HEN GOTO AMg OO bazgogg =” aS cee Se 
| IF J®5 THEN 03424000 . 
@ $33 IF BGN THEN BEGIN Je2s GO 10 B12 END ELSE GO To B13 03425000 21@ 
te ge eee eee ONMZOOOD 8 aaa eee Per 3 
LE? END STATEMENTS 03427000 4 
@ INTEGER TedeKoLeVeXsYeNPe 03428000 1@ 
ARRAY BGGrOty. ; wo 80D 6 
; LABEL LislesL3sL4el5eLo3 03430000 ? 
e LABEL Bi» ae erie, 03431000 1¢@ 
RABEL GO eGLeG2eG3eG4eGoe gu Re een eee 8 
LABEL POsP13 03433000 by 
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Oe ie Beste oe LABEL | webb eXs 8 iste ee  OS495000 salah, SING ea dash ne Sa Te San een A eg a i 
13 IF BOOLEANCDEBUGN) THEN WRITE(FOU, DUG s"STREAM™ NXT o TPE 03436000 "3 
@« IF DFINE THEN 03437000 1@ 
js RR a ee ee BEGIN T*CHECKNEXTC1)3 GO JO WX ENDS 03938000 00 3 
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@” THE ENTRY TQ THIS PROCEDURKE* AND ChECK THE WORD "PROCEDURE"S 03440000 1@ 
jpn en eer ne oP NUT GENERATE THEN BEGIN STARTGENS. BRKSFALSE ENDS O3441000 2 18 
19 IF BOOLEANC L©CHECKNEXTC(1)) TREN 03442000 19 
@» LX8 BEGIN 03443000 21@ 
| See ee NE 3 -DEINE THEN ERROFNe ELSE haan! secdat Stata ies mete eS alc e Eh Mae rere, ohn ht 24 
fA IF [=2 THEN CVL9IJ.C3686J¢ERXEL ELSE 03445000 : 
@» BEGIN ERRURS Cyl9),036:6)¢1 ENDS 03446000 1@ 
[ita nnee co ene  eeee cewneeee TE BOOLE ANCL) THEN 66 hae Op. ae wotcnna rein  O@3447000..... preg Rec i 8 ae ye 24 
Ps LFXeNFXS JeREALCSKIPUNTIL GTS") 23 LFXe1s” 03448000 
@» : IF NOT BOOLEANCI) THEN 03449000 . *.: | @ 
Olina tint Gees, eh oe, tad ot eakerecl FONOT USCAN CY) THE Nc oe —— ~~ 03450000 2 
ps IF GENERATE THEN ELITINGC101)3 & EDIT "3", 03451000 28 
on LX13 STREAMPROCEDURECIF Is3 THEN BLOCKC1) ELSE 03452000 . 5@ 
Se ae oe tia neta J nen sone ROU ENC Ty. TREN LELSE HLOCK(O); GO 10 Lex; o34s3000. , ia 
' ENDS 03454000 a 
@» IF 1¥0 THEN GO TO Lxs 03455000 al @ 
. Sacer een ee eee -LELEXZ6_THEN GO TOUXs 0 iw NE ae a eo rt eee es 
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p? “CVE I, [3686]+E RX]; % FLAG ERROR ON “PROCEOURE T6, - 03460000 | 
di LFX#NFX$ I*CHECKNEXTC1)3 LFEXe13 03461000 18 
pe es cee EO THEN GOTO be ung ace tae ees Eee ee 39 
i IF IFXSRFX THEN GU TO LX3 03463000 40 
@ |: ACIJ*EVCOIENCREI# 91% 1735 03464000 \@ 
2, 42) 
~FRNSFWOSCALZIPEVED 1 sde(NGR*Z) eESOIGDIF 03466000 _ ‘ 
e IF CI¢CHECKNEXTC4&"("E3614216)))48 THEN GO TO LX3 03467000 4@ 
Ned eee fn SEO eae IF _NOT SCAN(C1) THEN ie se 039468000) \ 
IF GENERATE THEN EDITING(1,1)3 & EDIT "(", 03469000 x 
r COMMENT FREM NOW ON AND AS LONG AS WITHIN THE STREAM PROCEDURE, NO 03470000 |® 
_ DEFINE IS PERMITTEDs ALL THE DEFINE IDENTIFI TREAT 03471000, . 
AS UNDECLARED INDENTIFIER: #eeuteune TINBOR Tae es WOTE ween een 3472000 aoa | i 
& MARK INFOCs4) BY SETTING "LEX" TO "NFX", STORE. THE PROCEDURE 03473000 | 1@ 
SEE IDENTIFIER To INFOCH,*) IF Iy OOO ee a 
IF DFINE THEN GO TO LX3 UE ELOT 5 
ALOJ*C J+] )Q1L184533)5 ALuee]"03 STRMETRUES 03476000 | “j@ 
oe 2 TE SE WR ee priser ane eS Fe bo 
03478000 | 55 
e 03479000 : «4 ® 
SY 
) 


er 7 
| Lit IF CIeECHECKNEXTC12)#0 THEN 03461000 
@ Lx2t BEGIN STRM*FALSES 03482000 
IF Js9 THEN [eC ELSE et ee 9989000 2 
IF I7¥2 AND NOT BOOLEANCI) THEN 03484000 
eo IF GENERATE THEN EDITINGC1sNCR)3 03485000 
! TE LEXSNEX THEN INFUREMOVECLEX)3  LExXe13 GO To Lxs03486000 sid... 
ENDS 03487000 
e IF IFX*BLK THEN GU 10 Lx23 03488000 
IF GENERATE THEN EDITING  DeNCR)Z 0 4egooo 8 
BLOLJ©EVLOJENCRI1$31%1793 03490000 
@ IF NCRSS THEN I#0 ELSE 03491000 
__IRNSFWOS(BI2]eEVE Ls le(NCRee)of3986])3 = 492000. CC 
BCOT*C IHL )R3C1245%3)5 BLI+2)¢0;3 03493000 
@ Le INFOENTRY( Be 1+3)3 03494000 
a __ TF CNPeNP+1 = TREN IF NGT IP THEN LFxXeTs 08495000. 
IF CLECHECKNEXT C4&%s"(C3684286)))=8 THEN 03496000 
. BEGIN 03497000 
wee FONOT SCANC1) THEN 0 eae BooO. 
‘ IF GENERATE TREN ECITINGC121)3 GU TO LI 03499000 
rd] ENC 03500000 
| De SRG OP ANCES OTE Nee 0G a oe ee HOTS OTD 0 csc inecex alraiarna eee egal 
IF NXT,03626]4")" THEN GO TO Lx23 03502000 
@ IF NUT SCANC1) THEN 03503000 
(Ip nnn a IE GENERATE THEN EDITING  1eldd oo gbo4ooo 
; IF CLECHECKNEXTC46"""(36842264)) = 8 THEN 03504100 
er IF NUT SCANC6) THEN 03504200 
=, ees IF NUT SCAN(6) TheN 9048250 | 
ra BEGIN EDITINGC2eNCR)3 03504270 
@* IF CleCHECKNEXT(48"("(3624236)))=8 THEN 03504300 
3 Soi BGT ONT SSCS YS a es —O3504400. 
e IF GENERATE THEN ECITINGC15193 03504500 
:@ GO TO Lis 03504600 
3 os es eet NSD ae a EN pl ae oe est ee OL 
. TP CL#CHECKNEXTC48"3"[ 3614263 ))#8 THEN GO TO LX23 03505000 
s®@ BCS1€x«0;3 03506000 
__2F NOT SCANC1) TREN 4 Nine os tie Pl etait oe, BRSO7OCO. ..... 
IF GENERATE TREN EDITING(X*1l91)3\ &% EDIT "3" 03508000 
@« COMMENT SCAN FOR VALUE DECLARATIONS ANC MOCIFY THE VALUE LIST 10 03509000 
INCLUDE ALL THE FORMAL PARAMETERS.» ALSO CHANGE THE URIGINAL (03510000 
VALUE LIST INTO THE REAL SPECIFICATIONS 03511000 
BCOJ*REALCNEWCARD)3 TRNSFWOSCBL1J2ENG21)3 BL2)J*NCES03512000 
” __ oF Cle CHECKNEXTCI))40 OR TFxX#2@8 THEN ss 958000 
"BEGIN. ® NO VALUE IS SFECIFIED ORIGINALLY. 03514000 
IF GENERATE THEN BLOJ*O ELSE 03515000 
At scl ei Saatt eA eer he KGa hss BEGIN 03516000 
IF BGOLEANCBLO}) THEN 03517000 
BEGIN GENERATE*TRUES CIVALIDeFALSES 03518000 
echt att Sete tn Sone TRNSFWOS(CICIOI+BL1),2)) LSTeds 03519000 
SQLiST*#*BHOLEANCX)3 03520000 
TRNSFADSCBLITJ2ENUs1)5 BL2IJ*NCES 03521000 


BEGIN STARTGENS hae 


TRNSFWOSCENUsCICiVIs1)3 
END ELSE STARTGEN} 


032522000 


NCE*CI Cagis 
03523000 


END} ; é 03524000 
IF If2 THEN 03925000 
TRNSFWDS(B[OJ]sEVL 0)» CCBESTONCRD FIO) (3916903 03526000 
EVCO]*"VALUE"S FST#O3 ECITINGC195)3 03527000 
KeHFXs GO TO Les 03528000 
END3 03529000 
IF NOT GENERATE THEN 03530000 


r 331000 


@ 
| IF BOULEANCBLCIJ) TREN 03532000 
@ BEGIN TRNSFWOSCBLIJsENOS1)3 BCZ]*NCES 03533000 
ee, eee DRNSFWOSCCILL0 Bf tIe2)5 i 54K gare rise nemo tee 
j ENOD3 03535000 
@: ENDS 03536000 
3 te ee EDITING CLO NCHS % THE WORD "VALLE", 537000!” Sans oes 
4 KeHFX3 FST*OS G0 TO Le; 03538000 
@: DC BEGIN 03539000 
| oer ee eee oe eee COR*#ML1B342te]3 e435 €£ els. 03940000 si 
7 Las EVLCOJ*#CPEINFOL XK C3585) YK .64088)))3 03541000 
@: IF (P#P.01286))25 THEN 03542000 
ass Mah lies oe TRNSPW OSCE VEL Dp INFOC Ks Yt1 Je (P42), 639016103 = DAI 
te EDITINGCI9F 23 03544000 
@ : END UNTIL CKeKWINFOLX*Y"1),02538))<CIF TP THEN LFX#1 03545000 
[aa eee iettettlee tah: ee ESE Lg Dee ten RE ct nen ere PORES oe f= 17'7 0131 0 Oe 
hs EVCOJeOR SL 1B8142t6)3 FSTeds EDITING(C121)3 03547000 
@ ' IF BOOLEANCB(OJ) THEN EDITINGCO*AVC) ELSE LSTeFST*Os 03548000 
eet sie oe TOO TEX 228 THEN gan 
"6 BEGIN BL4leveGs INFC1]¢BRS GC TO La END; 03550000 
@” EVCOJ*"REAL "3 EDITING(C194)3 BBKETRUE: 03551000 
Me panne ee ee BE WH DE CP CHE CKNEXT C1) <10 TREN GU To begs UU gassong0 
ig IF GENERATE THEN EVITING(1*NCR)S VeVed3 03553000 
@» INFOCIFXe C3585) olexXe(402B]“Llelis3lels 03554000 
fi a a eae te eee LO CHE CKNEXT CMR "0 96249t6))) 8 THEN 3885000. |. 
‘ BEGIN 03556000 
@= IF NOT SCANC1) THEN 03557000 
g i ce ers nee GENERATE THEN EDITING( 12103 GO TOL3s 03558000 .ssss—r—— 
5 ENDS 03559000 
a a IF I#2 THEN GO-TO Lxa23 03560000 
Sp eee ee noes svssstana waned NXT, £3626)9"3" THEN GO TO Lxop |” 03561000. 
g 8 IF NOT SCANC1) TREN 03562000 
20 IF GENERATE THEN EDITING( 191)» 03563000 
pane enero EF BOOLEANCBCOJ*REALCNEWCARG)) THEN 035604000 
IF GENERATE THEN 03565000 
@ BEGIN 03566000 
Suds TF _CIVALTU THEN EDITINGCO,aVC)S GENERATE*FALSES 035679000 
ENCS 03568000 
@ TRNSFWOSCBLIJ*ENUS1)5 BL2I*NCES 03569000 
ees sneered CREAL (GENERATE) 4 GENEKATECFALSES XeCBXsCBXe=13 KeBBS03570000 ete ee 
IeCHECKNEXT(1)3 CBX#X3 GENERATE*BOOLEANCY)3 03571000 
e INFL1]«B83 BBeK; 03572000 
bs so Neti Settee ae ee BOD EAN CLS) TIN a eo Ba et OST IO OO oe ee ee 
IF I#3 THEN GU TO Lx23 03574000 
@ IF NP<v THEN GO TU Lx23 03575000 
pe ae ee EE ONE CBT eG TF Se a en OO te 
COMMENT adO TO THE PROCEDURE THE POINTER SPECIFICATION ParRTe ALL THE 03577000 
@ FORMAL PARAMETERS WHICH ARE NOT CALLED 8Y VALUE WILL BE LISTED 03578000 
IN THE POINTER LYSTPO feitieelee® Bees SDT POON: 2. oa 
IF 142 THEN 03580000 
@ | TRNSFWOS(BLO)SEVLUJs(CBLSJ@NCR) 410), (3936))3 03581000 
= dF GENERATE THEN 8£0)¢0 ELSE | 03582000, 
BEGIN 03583000 
@} IF BOOLEANCBCOJSREALCNEWCARD)) THEN. 03584000 
oA ns, BEGIN GENERATEMTRUES CIVALIDeFALSES | 03585000 
; a. TRNSFWOSC(CICIO)sBCiJe2)3 LSte43 03586000 
@} TRNSFWOS(BLLI*ENOs1)53 BL2I*NCES 03587000 
= TRNSFWOSCENO*CIC10J01)5 NCE*CICit)3 | 03588000 ss 
END ELSE STARTGEN3 a = 03589000 
@ 5: ENDS et 03590000 
‘ P 0 35 9 1 Qo Q 
e 
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Lai BEGIN 03992000 
EVLOJE"POINT™S EVEL Ie OKMERMLAS3S781193 EDITINGC 1272403593000 
Aa RS a aa tk te Se Se oe Re ee SR Oo aah sae SiGe are asi 2 Seats Ne 
ENDs 03595000 
LS8 ACUEC CBU SIENPI 47). 0368914AC0) (40381) +03 03596000 
cae tie Al OTe fat blesols -% NO. OF WORDS ITN THE ENTRY, OO 93597000 

KeERFXS VeNPSV3 NPeNPxX6433 03598000 
DO BEGIN 03599000 

cn ee ne AP EINE OC KR LASS Te CV eR LMU SAINI) C12 3ITSS THENO FO 00000 
REGIN 03601000 
IF LeCEVCOJ©INFOCXsY)).01286)>5 THEN 03602000 

: eee RN SEWDSCEVE De INFOCMe Vo de (Lo), C90THT IE OZR O03 00O 

EDITINGCI2L)5 03604000 


ea AAT TONSE I NEMO TNOTS Cit. a fe Semis 28 kW) CAO By BS Le enNeNeeemier dere er cmn 


EVLOl*ORCIF VevetsO THEN "3" ELSE "2")C1884286]5 03605000 


IF vs0 THEN ELITING(CO» aves 03607000 
END; 03608000 


03606000... 


: Pate Ai Pe TE NPONPeoc? THEN BEGIN NP cS) Atueterieo pNny 03609000. ©... 
Ns TRNSFBTSCAL WI »PONP ole 3)3 03610000 
uy END UNTIL (KeK@P,0C2586))<CIF TP THEN LFX4#1 ELSE LFX)503611000 
fy COMMENT. CHECK THE WORD "REGIN'. IF THE ORIGINAL STREAM PRUCEDURE DOES 03612000 0 2 
19 NOT HAVE ONEs ADD ONE TO 1T3 | 03613000 
ee NP*BE3]3 VeBlals Led; 03614000 
[oe ee ee eee 1a THEN bMS ols ead tec ten a oe einen es AO ROSCOE GAL ia Pestle oe 
pa BEGIN 03616000 
: IF BOOLEAN( BLO J) THEN 03617000 
Sane rN ose ea eh 8 FO BOR Oth. Ss 2 
IF GENERATE. THEN 03619000 
2e BEGIN [Ff CIVALID THEN EGITINGCOsAVC)S 03620000 
P a a ee GENERATE OF ALS EG 03621000. 
P ENDS TRNSFWUSCENUst (1) 9193 03622000 
; X@¢NCES NCE#blLe ys YeREALCNEWCARD)3 NEWCAROD#TRUES 03623000 
pd CT RNS WDSCINFLOL CVE D> TANSFWDOSCCVEAL)sENO9123036Z4000.. ss 
B! OUTPUTNEW(X)3 03625000 
s NEWCARD*BUOLEANCY)3 TRNSFWOSCCVLALIJ*INFLO]21)93 03626000 
Pel eeaiiGett aalse Sealeuans . Sache ND a a cn a cane ee ee ica Sa ee ne ie OS FOOL Ste eink. Socal Sopetlic teas 
id BLKCNT*BLACNT+15 03628000 
IF OFINE THEN 03629000 
sori ieee loee cat ._ _BGNENDCFOUUCO)» lo BLKCONTsSTREO*4B)stsSTREOrI7), = 036390000 
BGGCO)]) ELSE 03631000 
IF NCO@NCD@2 THEN 03632000 
ee Aaa et ____---BGNENO(FOUCO)s 1+BLKCWI»PPC L111, 0+8G6(11/8G6C0I)ELSEO3633000 
IF NCOSNCU*1 THEN 03634000 
BGNENDCFOUCO)» 1»BLKCNTsPCL11]°0sBGGL1)»BGGL0)) ELSE03635000 
eet Se BGNENDCFNUCO)s 1*BLKCNT> CVLI1)>0+B8GGE1]+ 8660095 03636000 __ 
RELEASECFOUD3 03637000 
IF NOT BOULEANCBLOI*REALCNENCARD) ) THEN 03638000. 
ere eee eee eee 96.9000 | 
IF NOT GENERATE THEN STARTGENS 03640000 
EVCOJe"BEGIN"'S EDITINGC125)5 03641000 
rita atest — BBe INF j ; i 6 . 
END ELSE : 03643000 
BEGIN . . . _ 03644000 
7 ; r fmO: Xa Bel 03645 Shag deca cate 
BEGIN % THIS 1S A FORWARD DECLARATION: 03646000 
IF BUOLEANCBLO]) THEN 03647000 
ae BEGIN © 1-79-1010) © 
LF GENERATE. TREN ~ 03649000 
a BEGIN IF CAVALIO THEN EDITINGCO*AVC)3 03650000 
GENERATE*FALSEs : 036051000 
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rd] 
| ENOS THNSFADSCENOsHL1J391)5 Xe*NCES NCE*BL2)3 03652000 
®& YeEREALCNEWCARD)3 \EWCARDeETRUES 03653000 
Ni a eet alle at aed eset ooo ANGE WOS CINE TOTP OV TE) Dp 10g 1 io So ee eg SOSA DDD cok pets ee ee 
TRNSFWOSC(CVLLIIJ*ENG®1)3 GUTPUTNEWCX)3 03655000 
e@: } NEWCARD*BOULEANCY)$ TRNSFWOSCCVL11)]sINFLO)21)2503656000 
3 as ee. Sct cece a as END a a gcd ee ROE TOO. xt t cacdchualiades2tetocen sea ke 
‘ IF GENERATE THEN 03658000 
@ | BEGIN TRNSFADSCEVCO)»BL645(BL5)410) .63986))3 03659000 
a a bat ed LN ed ee, O00 nn ee a = 
7 ENOS 03661000 
@: IF CJ#CHECKNEXT(48"3"(3644236]))48 THEN GO LX33 03662000 
7 ie Oe, Se See PN SON TAR i os ee pecs BRIO Ooo pce 
ro IF GENERATE THEN EDITING(C191)3 GO TO LES 03664000 
eo" ENDS 03665000 
i Se EE SEN aR ——IF_BOOLEANCBLO}) TREN EDITING(O*AVC)ELSE LST#FST#0;03666000 = 
i EVCOJ*"BEGINGS EDITINGCIe5)S 03667000 
@ IF BOOLEANCBLO]) THEN EDITINGCO»AVE)S 03668000 
ee ee ee aJtI3 BC4]¢8Bs BB*INFIL14 GO TO BBs = 09669000——“‘“‘“‘i;CCS™” 
oe ENTS 03670000 
@” COMMENT PROCESS THE LABEL DECLAMATIUNS IF THERE ARE ANYe ALSO MODIFY 03671000 
 oneeeen aer eee THE LOCAL *DECLARATIONS INTU ThE POINTERSDECLARATIONSS = 3672000... 
ho Bit IF XS"LABEL" THEN 03673000 
@ ” BEGIN 03674000 
: othe Ue terete pation uk emote ate IF GENERATE THEN EDITINGC 1¢NCR)S ss 675000 —~—— are tear eres 
P2 Bes KeLFXS STRMCFALSES JeUONTCARE(1)3 LF ACK STRM©* TRUEs 03676000 
@ IF J#8 THEN 03677000 
Ps eee eB ee TE CC ERRSTREAMC O02] THEN ie rks a als OO TOO Oia Seek tees guide ateaace het eet Op ese ee 
BEGIN STREAMPROCEDURE*#13; GO TO LE END ELSE 03679000 
@» . GO TO IF BOULEAN(CY) THEN B7 ELSE B43 03680000 
pi cee ei naan EO CHECKNEXT CMS OL 3624296)))28 THEN a bBO00. 
ca BEGIN 03682000 
OF IF NOT SCANC1) THEN 03683000 
: Se te eect OGENERATE TREN FOV TING Cis 1 5) Gq (owe) 09684000. 
ENDS 03685000 ; 
e IF J22 THEN | 03686000 | 
nn ne NXT £90807 8"5" THEN GO TO Bas GO TO LxMas ODOR POO Oca iri co nteaeu Base re si ee te Se Sg es a 
ENO? 03688000 
] IF NUT GENERATE THEN STARTGENS 03689000 
ote EVI OD OMPOININS EVE PDeOgMER (189731113 fF OITING(Is7)% 63690000 .. hgh Oa Oe ae 
B3t IF J€CHECKNEXT(1)40 THEN GO TU LX33 03691000 
@ » IF IFX#BLK THEN GO TO Lxa3 03692000 
a ee ne ee F GENERATE THEN EOITING(IsNCH)S BO RDOO i ( s 
INFCLI*EVCOJENCRLLE31617)3 03694000 
@ IF NCRSS THEN J¢U ELSE 03695000 
ak: i ; . 
INFCOJ*C U2 2839019453335 INF CU +2)403 oe 03697000 
@ |. JOINFOENTRYCINFou+3)3° Leeds 03698000 
a CHE CKNENT CO6%) 09616216) ))88 THEN 699000 ———“‘“‘“‘“‘~CSCS™” 
é BEGIN 03700000 
@ IF NOT SCANC1) THEN 03701000 
Eee LE GENERATE THEN EDITING(Le1)} GO To a3; __ga7da2naq _ Seer ree oe 
ENDS | 03703000 
i Tf si THEN GOT Lx35 ee Ss 03704000 
pene eek af a ae ee MAO 9 7s (0 |» Se 
BEGIN 03706000 
@ | B48 IF NOT SCAN(1) THEN 03707000 
ee a ass ee ett [RA HEN BEGIN TeOj : a7 Ue Sotto Ete oo 
; TeLP ee a ee ie 03709000 
® af B53 IF NEWCARD THEN | —— ae 03710000 
as My NER a Saeco its es tn AA OO 5 i eee tea oa ae eee 
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oer Oo TO FF ww DB = 
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REGIN IF CIVALID THEN EDITINGCOs» AVC); 
GENERATE*FALSL} 
oldie’ hits PON) Bote. 20 Feet 
BCOJ*REALCNEWCARD )3 
YeREALCGENERATE); GENERATE*FALSE} 


Xe CBX; 


von KO BBS  JOCHECKNEXTCL)3 BE4JeB8s BBekKs 


CBX*Xs GENERATL#RBUOLEANCY)3 
IF Jel THEN GO TO Lx35 


som 8 ER dO THEN GO TO B7i 


oo fG& CITING  126)3 0 


IF BUOLEANCBLO]) THEN EDITINGC Os AVC) ELSE LST*FST#OS 03748000 
COMMENT ADD TO THE FROCEDURE THE ARRAY DECLARATION OF "LOCALC#I"3 03749000 
wees GV EILIONP SCTE TR THEN EELS ete rae a OT OOD Oe ti no ot ye eed 
EVCOJeEMARRAY"S EDITING(C195)3 FST#0O; 03751000: 
EVCOJe"LOCAL™s EDITING( 1.593 FgTeaz 03752000 
convenes oo VLODEM CO MF  EDITING(193)5 FSTeeVvEO} +03 03753 
IF EVC1]50 THEN EVEOJ¢Kke1 ELSE 03754000 
BEGIN XeKe5s IOCVRICX*EVE1)236520)3 «GO ‘TO BOS 03755000 
KeK™13 Xe"O&XL1822492433 03757000 
B93 END UNTIL Xe€1696)403. EVEOJ ex; peas: 
See eee et nea isteach ts a ie ee a a SS a tec hte le - Bis ee ON POO... Sore 
ECITING(i#K)3 FSTe4; 03760000 
EvCole)3 "% EDITING(122)3 03761000 
00 N Q)) THEN EDITINGCOs AV LSE LST¢FST*©Os 03762000 


COMMENT ASSIGN THE INDEX OF LOCALC*] TO ALL THE VARIAGLE 


03712000 
03713000 


03715000 


CBXe"13 03716000 
O37A7TOO0.. 


03718000 
03719000 


nw QA. 20000.. 


.O3TATOIE 


IN INFOL*,*}, 03763000 


AND GENERATE THE ASSIGNMENT STATEMENTS TO ASSIGN THOSE FORMAL 03764000 
PARAMETERS WHICH ARE CALLED BY VALUE INTO "LOCALE #Js QO3765000) 
GO: TeR@O$ KeHFX? B8¢BL4]3 03766000 
IF (NPeL) 40 THEN 03767000 
G1 00 BEGIN ____937 68000 
IF CPeINFOCXeK LISS eC VeK, CA088 I} )eL)) C133 )el THENO 3769000 
IF BOOLEANCR) THEN 03770000 
See RO Ne 03771000 


OBLUYOO 0 eee 


IF NCR#5 THEN GU TO B73 03721000 
IF XeEVLO], C18; 30) 2"LABEL” THEN 03722000 
ee : coo TE_XA"LOCAL" THEN GOTO B7% se s—s—s=iB BGG. ee ee ee 
rl CUTPUTNEWCNCE)3 03724000 
y TRNSFWOSC(BCILJSENOO1)3 BEZI*NCES BeeBLA); 03725000 
a ae eae han 1 ae a TE PO od a8 on a iy pe tet pv ttn ee Gas cats ee tence OAT OITA Des, Mine Ge ale etd ae et tate om 
ENDS 03727000 
B73 IF J#2 THEN | 03728000 
Pekan Rea . -. URNSEWOS(BIGJPEVIO}s (CBESIJeNCH)410).639260))3 = == -cog729000— isi i ists—‘“‘ié‘iCS 
IF GENERATE THEN BLOJ*O ELSE 03730000 
BEGIN 03731000 
Poel Seles dane, nidonolitiiud wanes aR BO UURE ANC ECOL) TWEN Sf! 5 oe et ie fas yemute, ay ORTIZ OOO. ee ee 
BEGIN GENERATE*TRUES CIVALIDeFALSES 03733000 
TRNSFWDS(CIC10)6B01152)3 LST¢43 SQIST*BOOLEAN(T 303734000 
Be a ele oosommewoD RNSFWDS(BILIZENO1)3. Br2denCES oo araSO00..s—i—(‘“‘i‘<“a‘ ‘és pene 
TRNSFNDSCENO*CIC10}*1)3 NCE*CIC11)3 03736000 
END ELSE STARTGEN3 03737000 
REINO rays et Se, AS Ss Ra NB a il a a coe i la ln ee ne oa ae cok. Oa BO OO ; Fa at ice RO et ee ne AE chy eV S annette oy Sone deaths 
COMMENT ADO TO THE PROCEDURE THE POINTER DECLARATIONS GF "DI" @ *SI%3 093739000 
Bet EVCOIe"POINT™S EVELI+OR"ERMLII3721133 EDITINGC197)3 03740000 
eee oer coe EVEOLEMZDTS SINS TRNSFCHRCEVELI,EVEO)s0,201)3 = 03741000 ete CP ee Bt 
FST#O3 EDITING(196)3 03742000 
IF BOOLEANCBLO}) THEN EDITING(O+AVC) ELSE LST*FST#Os 03743000 
H—_.. COMMENT ADO TO THE PROCEDURE THE REAL DECLARATION OF "TALLY"3S mean; 03744000 _ | Seip SG se ak Ns oe hae ee a ed 
EVCOJ*"REAL "3 EOITING(194)3 03745000 
EVcOle"ZTALLY"Z TRNSFCHRCEVCLI*EVLO) 0s 201)3 03746000 


ern A 8 RR A 


e 1 
| 
| EVCOJEMLOCAL™S EVELJeUB"E™C124985)5 EDITING( 1262503772000 
@: IF TsO THEN Z*EVEGJe1 ELSE 03773000 
Bil aaa cone BEGIN ZeeVlOle55 LOCVRICEVLO]s Ts 39500)5 GO TO G2s0a774000  . ... 
DU BEGIN 03775000 
e Z ZeZ"13 «EVIOTOREVLOIL18:24824)3 03776000 
| ee een Geto ENO UNTIL EVECOD CiBtOI40; OPTI 5. ot fis Sete tp eee a oS a 
4 ENDS EDITINGC192)3 03778000 
@ |: INFOCXsY*1] 6113 3)¢53 03779000 
A eee ee et ee NEO EX VeP SPA OPB Jey OUR epi otaoeb6 se O37 80000 ws 
7  EVeOlet]e "5 FSTeas EDITINGC192)3 03781000. 
@ IF CZ*CEVCOJ]INFODCXsY)).012%6])>5 THEN 03782000 
fo TRIS FW DSCEVE LD» INFOCX* Velo (242) ,63906))3 03783000 
10 EDITING(192Z)3 03784000 
eo: EVCOV|OR"S"CI8s4eto)s EDITINGC 191) LSTerST#Gs 03785000 
Oe i Se tel te a ci etn Sen cet odes OL WN Ls Sa re OO OO to tt a 
13 END ELSE GO TO G3 ELSE 03787000 
@“ IF P,C1!3)53 THEN 03788000 
Plus iets : G33 _... BEGIN  INFOCwsY"1),0123) ccc. cy ee COSTA S OOD: Fes. tl to Si ee ee re Sons See ep ee 
Hal IF T=O THEN 42*EVEO]e1 ELSE 03790000 
@” BEGIN Z*EVCOI]*5s LOCVRICEVLOJ21T+325e0)s GO TO patie eee 
eee ee eee Le, - 12d: oe eee ee Bile eeiean atari Soi OREO PONG: ? ede are het Acie as 
uy  ZeZ"13)  EVCOJFOGEVLO]L16s24824); 03793000 
Gar END UNTIL EVLO1e(1826)403 03794000 
a eee ENDS  INFOL XeY¥eP COO BI JOP VIOIRZI12¢a286)3 03725000... 
. TeT+CIF R40 THEN "1 ELSE 1)3 03796006 
Ee) 3 NPeNPO 1) 03747000 
4 newer here ae traeriie sor lave eNO Se Me Rg [SS File aa ie i Seat a Ae ee OPO RAO OOS sc Sh Klee lan bee yee ae ee 
Pay END UNTIL NPSO3 03799000 
@* IF (ReR+i)©1 THEN 03800000 
: anaes 5 a BEGIN TeCNPepl 3) )+(1F Tp THEN T ELSE T=1)3 Go G1 END;O3801000. ss 
IF R32 THEN 03802000 
@ IF TP THEN BEGIN NPels GO TO G1 ENDS 03803000 
: Eee op al nye ete IN he a rT tg a ie tes 2 OOO Oi a se ane cn se 
y G5! IF BOOLEANCBL0}) THEN 03805000 
Oe BEGIN EDITINGCOsAVC)# TRNSFWOSCENOsBL1)01)3 03806000 
a I co os wen’ @NCES NCE OBI 207 NEWCARDeTRUFZ eT, 5 oo. ite dase tin alae es et pe es ee, 
TRNSFAQSCINFLOJ*CVEA1]51)3 TRNSFWDSCCVLILJ»ENU~1)% 03808000 
@* CUTPUTNEW(CX)S TRNSFWOSCCVLLLJs INE COJ»1)3 03809000 
ai Sent E gates idol ctaDe Nee PE RACE A fi eee arg ts ott Se en Sree OBO Oil dace «ete ur sox avec antes uoctn ny a pad cree 
em END ELSE 03811000 
a BEGIN LST*FST#Os TRNSFWOSCENO*BL1Jo1)% NCE*BL2] ENDS 03812000 
i ee RE gai ins el gcee set aN De Ne ee AS Bd ga ove ce oa ee a tele a te gO OO ae a Tae eee a Ba An Sa As eee oe 
TRNSFWOSCEVLOIJe30O] > CONCREBL DI 94+10),(3926) 3 03814000 
A POs IF CJeSTATEMENTCJ2TF TP THEN REAL CT 23) &LFXC34935313) 03415000 
Semen aeae eeren ee 32 REAL C153) 2BGG))42 THEN 03316000 0000 wae 
P13 BEGIN ST REAMPROCEDURE*ERRSTREAM( y)3 Go TO LE END: 03817000 
e IF NXT,C3686]4"3" THEN GO 70 P43 03818000 
a ater sero ____IF NOT BOOLEANCI) THEN 7 19 ee eee 
BEGIN 03820000 
e IF GENERATE THEN 03821000 
ete ie Ske BEGIN IF CIVALIO THEN EDITINGCQ»AVC) ENO ELSE 03822 ee aR A OE le Rare harmo ae eS eee SR eee 
BEGIN STARTGENS EDITINGCOsAVC) ENDS 03823000 : 
@ EVCOIs(18118)+"END"S EDITINGCie3)3 03828000 
IF NOT SCANCL) THEN 03826000 
@ IF GENERATE THEN EDITING(C191)3 03427000 
ew EEC NF OREMUVECLF XS LF Xed3 STRM@FALSES _ 03828000 ates 
I@INFOENTRYCASATOJ, fated )s 03829000 
e ‘LEX? END STREAMPROCEOURES mM 03830000 
REAL PROCEOUR FILENA [< 03831000 _ 
e 


oe’ @ 4 
| COMMENT Cee OS eee Rm ee eee ener rare meee eee earner netenreareressovesecezr eee eI 3USCU0U 
: t THIS PROCEDURE ADDS A "/" IN BETWEEN THE TwU SYMBOLIC FILE NAMES 103433000 | 
Peete SEITE TUERECARE ANY gt ee i Fi rte ee SO MO ae ne yop mie ea se 
a ’ VALUE OF RESULT! Of STOPPED AT AN ABSOLUTE RESERVED WORD, 303835000 la 
e: i 1: STOPPED AT END@OF*FILE, 03836000 : 
; : 38 STOPPED AT "BEGIN", 303838000 1@ 
@: : 5t STOPPED AT "END", 203839000 . 
§ ae Ala ee AN Paes eae 88 SUCCESSFULLY PROCESSFO, 0 aOR | BD oS tt a wel tts oe 6 
‘| ) scemmeme 8, oC, PAD 05/06/68 9 =s-"—998 403841000 1@ 
@: Fete en eeeeensererererrreenerees eae eneesecaressterereceresescesescenee 303842006 . 
\° epee ae et a iar Cite wy ih RE Alter ec Se eer eee is Rate Hence at eS cars OA A OOO. aoe alc Oa a net oat cel te : 

‘0 REAL [3 03844000 
er LABEL LOsk isis ce: 03845000 @ 
t? _IF_BOOLEANCDEBUGN) DSGeMPILENMMoNXT IS OO geaeooo. he Ea ee gen, 12 

Lot IF CLeDONTCAREC1))48 THEW 03847000 "3 

@ | BEGIN. : 03848000 @ 
Oe at A a os Hote netne TETSO THEN ee enn ne AO ZBEIOOO 8 pia a a Ue 

Ne IF IFX=SOFX#13 THEN GO TO LO ELSE 03830000 “"e 
eo” IF IFX=DFX415 THEN GO TO Los 03851000 "7 
em et woo DOENAME OLS GO TO beg 0 ge52000. a ‘9 

ie ENG3 03853000 1@ 
@ Lis IF CLOCHECKNEXTC48"5"C3614216)))28 THEN 03854000 20 
ot a Ns : BEGIN a gssoo9. ape ee? 21 

IF NOT SCANC1) THEW 03856000 18 
@ IF GENERATE THEN EDITINGC191)3 03857000 23 
Sis Se tet wee oo TLE NAME Op pacar ¢ Wen 16 [ices et 2 ee ee esas a eRe ag BN von 389.800.0.. cB ols Gledhta tat nh tedltat eke On eet as foe Sys ore a SM 

ENDS | 03859000 f ® 
@ IF BOOLEANCI) THEN 60 To LX3 03860000 26 
e pee ad Tat he mae LE TAO THEN GO TU Se OPGB G4 GOO ce Aik 4 chibecdeutlcns eth e ss eat tt 2 
2 IF I*NXT,C36¢6]=""" THEN 03862000 4 

:@ BEGIN STRINGS 03863000 1 @ 
3 eee eet were nnenmnnn TE BOULEANC LO CHECKNEXT(1)) THEN GO TO LXs ss 3864000.——*™” ee ee Sea eee oes eT ee eee ay 

Sea IF I=2 THEN | 03865000 e 
s®@ IF NXT.0C3686)29"" THEW 03866000 p2 
eben eee —— 7 _ eo UN EOIN ie sty AD ta at ee eg veer O3S867000 So ee CA rae e e SE T 83 
BEGIN IF LLF«KO THEN STREO+0lstartiiel END ELSE 03408000 34 

@ } HEGIN 03869000 3 @ 
eae es reat Ps ea ee wt OO Ee Ce NCOeNGOS Cea tacts ite NO OE OOM G S20. oc can cata caer eee ee B6 
P| IF NOT GENERATE THEN STARTGEN3 03871000 cy 

e" EVLOJ*OS"/"U1B142b6]s ELITINGC 10103 03872000. 4@ 
a 7 7 step pate aE Saas MONO R le i nk ne at 2 Bi leah PO OOO ee ee a eh ee x 
END$ GU TO Lis 03874000 “9 

@ | END} 03875000 1@ 
a THEN 03876000 42 
GO TO IF CYegRaCKETC")"41))84 THEN Li ELSE LX¢ 03877000 ag 

® IF Ta"C" THEN : 03878000 J@ 
Siete See A ete GO TO IF CLeBRACKETC"I"+1))=4 THEN Ld ELSE LXs 03879000. arsed by 
IF Ia," THEN 03880000 ] 

ev BEGIN 03881000 +O] 
ee _ IF NOT SCANC1) THEN 03882000 ae r 
IF GENERATE. THEN EDITING(C1s1)3 GO TO Los 03883000 | 4s 

r END: ae | ay os 03884000 co] @ 
eet eee, TP NOT SCANCIF NXT4£4216304. THEN 1 ELSE-0) THEN 03885000 51 
IF GENERATE THEN EDITINGC{>NCR)$ GO TO Lis 03886000 : 

Or LXs FILENAME*IF 130 THEN 2 ELSE I 03887000 |@ 
LE’ END FILENAMES 03888000 ; 
REAL’ PROCEDURE ~~ “DECLARATIONCBGN)S | aa 03689000 i 

@ COMMENT vesveressccvceetenetancuteserecstocsncsetasetenceperecseeeseess 403890000 co @ 
i THIS PROCEQURE PROCESSES THE DECLARATIONS INSIDE A BLOCK. IF. E_ 303891000. By 
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@ 
SDECLARATION 1S A SUBSCRIPTED IDENTIFIER® A SIMPLE IDENTIFIER OR A *03892000 
DEFINE» IT IS ENTERED INTO INFOL*s#). 203893000 @ 
3 ™BGN" INDICATES THAT THE DECLARALIONS BELONG TC A BLUCK UR JUST  :038¥4000 | a 
STHE SPECIFICATION PART BELUNG TO A PROCEDURE HEADING. 103895000 
: VALUE OF RESULTS 0% NOMRE DECLARATIONS.» 203696000 = 
Mei ance Psa ate aoa ta 43 STOPPED AT END"OF"FILé. ss BY7T000 OC gaa eee eee Ss 
: 33: STOPPED Al "BEGIN", $03648000 
: 5: STOPPED Al "END", 303849000 
ne ee oe Be oe ee EO Ee ae Cy PAG OSV OI oR Seer ase POV UU00O 2. noe! 
Some rer O Heo ee OPER ESE HH eH HHO EH HOCH HO eH ee eteneeeeeeeesereeeren reeds OSTU1L000 
VALUE BGNS 03902000 
eg ARE I ao ae ctte UNN 8  k  e  etc te e  O rci tes cle 
BEGIN 03904060 
REAL 1sX3 03905000 
coe wee DEFINE NBSBOOLEANCBGN)@S EORSOB 000 oes oe aa ee 
LABEL Lieb2olL del ae Selorl sob Gol Gs 03907000 
| LABEL LoL Col Fol OoLToLArLXLeLXxoLEs 03908000 
TR BOOLEANCDEBUGN). THEN WRITECFOUs,DBGs"DECLAR"sNXTsBGN)S QP OQ. eee eee en 
16 BGNeREALCNOT BOULEANCBGN))3 03910000 
@” Lit IF BOOLEANCI#CHECKNEXTC1)) TREN 03911000 
Me ncoraeiug. 2 omen» dow ei OE TOR A TE EY SNR, Gc a asi il ten, II DOOD. 
iy IF I®2 THEN 03913000 
@~ IF NXT,£3626]8"3" THEN GO TO LE ELSE 03914000 
Papeete tea cee eK BEGIN 2% THE NEXT TS A SPECTAL CiwR OR A DIGIT. OO. o3915 900 | 
P| IF DFINE THEN ERRDFNe1 ELSE 03916000 
@» IF Is2 THEN CVL9J.CI62O]+ERXe1 ELSE 03917000 
fe i BEGIN ERRORS CIO9)0C3686]e1 ENDS OO 89 N BONO 
by IF BOULEANCI) THEN GO TO EXxt3 03919000 
@ LL LFXeNFXS LeREALCSKIPUNTIL("3"))3 LEXeLS 03920000 
; 
el LX18 REGIN DECLARATIONels GC TC LE ENDS 03922000 
r IF NOT SCANCL) THEN 03923000 
I GENERATE THEN EDITINGCIZNCR)S GO TO LIES o392za4non. 
y END 03925000 
@" IF I40 THEN % DECLARATION EXHAUSTED» START STATEMNT 203926000 
98 eo ttaee MiG TO TF BOOLEANCT+BALABALACT)) THEN LX1 ELSE LEs 03927000 32 
a IF IFX>DFX THEN GU 70 Les % DECLARATION EXHAUSTEDe 03928000 
@» IF IFXS9 THEN GO 10 L?3 IF JFXS$49 TREN GO TO LT3 03929000 
ne ag ine Goat alnbehdaeecd f SLE RSS S THEN. 8 "DUNE" TS AT 43. TN TNE OCA oe ge 8 OGY S000 Oe ne oo eee 
b7 IF NB THEN GO TO LX ELSE 03931000 
@* L2: GO TO IF BOOLEANCI*STATEMENT) THEN LX ELSE 413 03932000 
in Mee a i a __ IF _IFXe40 THEN 4% “MONITOR” 15 AT 40 IN INFOL*s*}, 03933000 = 
a IF NB THEN GO 10 LX ELSE 03934000 
@ hs BEGIN Xet43 03935000 
: aa SLO NE KS REXOREX +115 2 ChECK FAULT DECLARATIONS « 03936000 Bijan 
T*CHECKNEXTCA)3 LFXe1s | REX*RFX@113 03937000 
@ IF BOULEANCI) THEN GO Z Lx s 03938000 
ee oe ee IF 10 THEN GO TO LXs If IFXSRFX THEN GO TO Lxs 03939000 _ oe 
IF IFX>RFX411 THEN 03940000 
@ GO TO IF BOULEANCX) THEN L@ ELSE LX3 03941000 
oo DONTCARECODSR BVH AOOO 
9 IF BOGLEANCIeCHECKNEXT(1)) THEN GO TO UXxs 03943000 
OF | TF 192 THEN GO TO UKs | 03944000 
BI , ‘ ODM EM | | a 9 
B2 IF NOT SCANC1) THEN 03946000 
OF | IF GENERATE THEN EDITING(121)3 GO TO LSS 03947000 
ease ons ea ENDS ; a BDOO 
| IF IFX#37 THEN & "SWITCH™ IS AT 37, IN INFOCHs 4), 03949000 
@ BEGIN. ee cue vob 03950000 
Bi ROC Ah DON ARE TREN 0..t0 : 039 B00 a 
e 
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poets an 


prAna kon 


IF 1=8 THEN GO TO IF Nw THEN LC ELSE Les 03952000 
IF [#0 THEN GO TO LX3 03953000 e 
bcs i : asc PR NS S850 PRE NS GWT TER cl ST ge ee a nel cl OSM ONO Oo tenes it, cman wanna ae ee cs 
Las GO TO IF CI*O0ONTCAREC1))48 THEN LX ELSE 03955000 ' 
IF N@ THEN LC ELSE Les 03956000 | 21@ 
pbc tM IR IE Xs92 THEN &% SWITCH FORMAT, 87000. = 3 
GO TO IF CI*ODONTCAKE(1))#8 THEN LX ELSE 03958000 4 
IF NB THEN LC ELSE LL& 03959000 |@ 
en nee GO TOE LEM224 THEN LY ELSE og SWITCH FILE, 03960000. eR A ET Sites tees 6 
IF NB THEN L6 ELSE Las 03961000 1@ 
ENDS 03962000 ? 
7 _IF_IFXs35 THEN & "LIST™ IS AT 35 IN INFOLes#], (03963000 _. eee eee ee 3 
IF NB THEN GO TO L6 ELSE 03964000 "e 
BEGIN KX€Q3 03965000 " 
Pe | (ener em ef SPATE Ne a OO HB OO: Oa ced paces aes Sect 
BEGIN 03967000 ‘Je 
IF BGOLEAN(X) THEN 03968000 be 
ih sO MR TE ON ki RS a ce a a a ie I SP ICL Cite se elosh cin aS se pS ceca ew Fd Pend ih eh cae Se Soe re 
IF IFX=OFX413 THEN GO TO L5 ELSE 03970000 je 
IF IFXsOFX+15 THEN GO TO 655 GU TO LX3 03971000 17 
SENDS eine see eatesaNiesssactet i SND TE OOD 0p ciscnee Past nc il se tie ee ere tee ee EE oe 
IF CI®©CHECKNEXT(4&"("C 3624246) ))48 THEN GO TO LX$ 03973000 ‘9 
IF BOOLEANCX) THEN LFX@NFXS 03974000 ro @ 
_JeBRACKETO™) 9103 0 75000 espe sete 2q 
IF BUULEANCX) THEN LFXed3 039760C0 or 
IF 144 THEN GO 10 LX3 03977000 21@ 
Bice EE Sit LE CUP CANE NT. CLS 982 THE No ee at oor oe OSU BOO a seg toe ee ee Pee ese 24 
IF NXT,C3686)8"3" THEN GO TU Las 03979000 2 
IF NXT,C3686]4"9" THEN GO TO Lx; 03980000 2 @ 
__IF NOT SCANC1) THEN Bi actress S GB OOO pe cee ereue cee! , 2 
IF GENERATE THEN EDITINGC1»+1)5 GU TO LS3 03982000 28 
ENDR 03983000 2 @ 
Pee secre we oe dss 8 sc LF IFX=32 THEN 4 "FORMAT" [5 AT 32 INFOC#o*).  O3984000 2 i 
IF NB THEN GO TO L6 ELSE BEGIN xe1$ GO TO LS ENDS 03985000 a1 
IF IFX#30 THEN % "LABEL" IS AT 30 INFOL###], 03986000 | @ 
__ BEGIN. 97000 pete renee 3 
IF CL©OONTCARE(1))48— “TREN, “Gu. Bice oe. 03988000 34 
IF CL*CHECKWEXTC 4850 3634226)))88 THEN 03989000 a @ 
dae gue IR NLS Se one ioe liad a Nc Aa aS NS iti tte PD POMONA: rato ere eee sence 3 
IF NOT SCANC1) THEN. 03991000 a 
IF GENERATE THEN EDITING(1¢1)3 GO TO LO} 03992000 4@ 
_ ENDS Bienen Dea Bata 09999000 . 
IF I=2 THEN 03994U00 40 
IF NXT, C30802="5" THEN GO TO L2s GO TU LXs 03995000 «/@ 
ENDS 03996000 ae 42 
IF IFX=28 THEN & "Value" [5 AT 28 IN INFOL*e«], 03997000 4 
GO TO IF NB THEN LL ELSE Lx 03998000 4@ 
_IF_IFX®26 THEN 4 "SAVE" IS AT 26 IN INFOL Wow], 03999000, 45 
IF NB THEN GO TO Lx ELSE 04000000 49 
BEGIN 04001000 hd 
IF CI©CHECKNEXT(1))40 THEN GO TO LXx3 ogo0z000| =———= r 
GO TO IF IFxX#24 THEN LF ELSE IF IF x22 THEN LO ELSE04003000 4s 
IF IFKe4 THEN-LA ELSE IF IFXS9 THEN. LX ELSE 04004000 1@ 
I 4EN: SE CTF. 04005000 . 51 
ENDS . 04006000 ° 5 
IF IFX=24 THEN & "FILE" IS AT 24 IN INFOC¥e*], 04007000 s|@ 
IF NB THEN GO TO L6 ELSE ; 04008000 _ sa 
GO TO IF CI©FILENAME)@8 THEN G1 ELSE LX} — 04009000 ss 
IF IFX#22 THEN % "OWN JS AT 22 IN INFOCLHA4), 04010000 so @ 
iF NB THEN GO TO Lx ELSE: ou 04011000 5y 
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@. é 
| LO: BEGIN xe; 04012000 
@: IF CI*CHECKNEXICL))#40 THEN GO 10 LXxa 04013000 @ 
Srila it), agin sine PT PKR TS THEN GO TD TP PER SQoTHEN Pe ELSE wp cogdagod ee. eae ee een ee 
f IF IFX¥19 THEN GO TO Lx; 04015000 
@» ENDS 04016000 
MoO IE XSL? THEN 3 ELSE  & TYPE OF "ALPHA", sss Qg01 7000 A apc Neg gee ine ee 
4 IF IFX=19 THEN 3 ELSE & TYPE OF "BOOLEAN", 04018000 
ee: 13 % TYPE UF "INTEGER" Un "REAL", 04019000 
8 eee ee eae ie UP MENE YS eC HE CANE MT (i 3os RAW i pou. 2 ho si OBO COG NO wis eet SS ee 
j IF 140 THEN GU TO LX3 04021000 
@ |: IF IFX>RFX THEN 04022000 
‘ as Dace rant ares weet pee. _ GQ TU IF BOOLEANCI*+DCLARTYPE(O)) THEN LX ELSE L153  O4023000 _ ae 
io IF IFX=24 THEN 04024000 
@: GC TO IF X43 THEN LX ELSE 04025000 
n3 IF NB THEN GO TO If IFX=4 TREN LA ELSE LX} 04027000 
@ * GO TO IF IFxe9 THEN 18 ELSE IF IF x6 THEN LO ELSE 04028000 
OO Loach FEA tel faeces fis vitae oP A RB TRE NA eS Be ee SOROS I ODO. ee 
6! L7: X¢O3 04930000 
@” IF IFXs% THEN & "STREAM" IS AT 9 IN INFOC Hee], 04031000 
i BO cele rete tan 2) ne LEONE THEN GO TO bY eb se ncnermivaieerictiasees OHO 3200.0... Cerca aciacel nantes ise Tete net Pac Satya a ead 
19 L8: GC TO IF BOCLEAN(C 1+ STREAMPROCEDURECBOOLEANCX))) THEN 04033000 
@™ LX ELSE L413 04034000 
Pe ee eau eu hE TEX 26 THEN % "PROCEDURE" IS aT 6 IN INFOL¥o¥). 04035000 
is IF N& THEN 04036000 
@» IF BOOLEANCX) THEN 04037000 
PES ptm oti sev ay wma Give LEXENE XS. LeCnEGKNEMT CID) bP ted foo nn SW OFBOOG cele. caer evade ie 
i GO To IF 170 THEN (LX ELSE IF IFXSRFX THEN LX ELSE 04039000 
@« IF BUOLEANCT©DCLARTYPE(O)) THEN LX ELSE L13 04040000 
ii Hee tasted. van dade ats cis uta eR NOSE EOS Fe GMP OO Bi Ske 2 a a OKO0UL000 oo 
‘ L93 GO TU IF BOULEAN(T*PROCEDUR(BUOLEANCX))) THEN LX 040420900 
@ ELSE Li: 04043000 
‘te _ a Busts! __._If_ Jf X=4 THEN % "ARRAY" [S AT 4 IN InFOls wee}, O4044000 
LAs GO TU TF BOOLEANCIeDCLARTYPE(1)) THEN LX ELSE L413 04045000 
@» IF N6 THEN GO TO LX? 04046000 
Fe cc hunted le als gels ia DER TNE SGOT GSS ns a a ee  O8047000 . a ae ieee ee ete 
4 LE’ END DECLARATIONS 04048000 
@» REAL PRUCEDLRE BLOCK(RGN)3. 04049000 
: Pe eee cece reer ee ee ee ee ee ee ee eee ee ee ee eoeorccceose see 94950000 
y ’ THIS PROCEDURE PROCESSES A BLOUK. "GN" I§ A SWITCH TO TELL IF %04051000~ 
@« STHERE IS A "BEGIN" Tc BE EDITED FIRST OR THE "BEGIN" WILL COME LATER 04052000 
1 IN CASE OF A PROCEDURE. i Ps ee ee ete Ae tr Wh re ee need ae es 804053000 
: VALUE OF RESULT? 0: THE BLOCK IS COMPLETE. 104054000 
@ , Lt STOPPED al EnDeureFILk. 104055000 
be goo STOP RED AT MENDY. CONLY WHEN BGNSO). «ss gQw056000,———™ 
: wmmeetwe 5, C$. PAD 05/01/68 wamammmmnt 4057000 
e EP Tes eave ed 998 ie Psi edaieeh aah a syh gee acy, Ce Maint ove saisinina vida teat OGUSEO0 
See NB Er Na a ee ee a Beale eis ees he an Sn eee | ROOD Bera lee ecet os 
REAL BGN3 04060000 
e BEGIN 04061000 
AN ea i ee ee, Se OOO O00 ews 
REAL TeToSTIFXsSTDOXS 04063000 
e LABEL Lisl 2olL2eb Zeb 31 oL30rLI2eL 33 eL BML 4sLSeLES 04064000 
JOLEANCOERUGN) THEN WRITECFOUs,0BGs" BLOCK™»NXTsQGNeNFXeDXI2 04065000 -———> 
STIFX*NFXS STDXDX3 04066000 
td IF BOOLEANCBGN) THEN 04007000 
wae BEGIN, BLKCNT*©BLACNT413 gy BOOD it” 
IF NOT LSTQ THEN GO TO Li2as. 04069000 
@ IF FRSTPRNT THEN | 04070000 
FRSTWRNTS _ mOFtOOO iit 
rd] 
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. IF BODLEANCBGN) THEN GO TO L54 


( qe 
IF (T#TL DIV 3600)<12 THEN Te"A" ELSE 04072000 
BEGIN IF T>4e THEN TeT#he3 Le"P" ENDS 04073000 e 
oan WRITECPOULOBLIeHONGs TO,LOt24)]eTO,Lueiols, oo oworgooo. 2 2 Sheen 
1 TO,C30%T2]eTs(T1 MOD 3600) DIV 60s7)3 04075000 
2 ENDS 0407/6000 |@ 
| eleeen Rceeeeere cee JE UDEINE THEN ame pias OORT OO eo renee re 3 
‘| BGNEND(FOUCO)* 12BLKCNT»STRL Op dG]el>STRLO*L7)> 04078000 : 
s BGGLO]) ELSE 04079000 |® 
(| ere IF NCUZNCD*2 TREN a OU 0800 00. avo cion satan asians eae tel ese, 8 
7 RGNENODCFOQUCO)»1>BLKCNT»PPCL11)902BGGl1)»B8GGL0) ELSE 04081000 ? 
a IF NCOENCD“1 TREN 04082000 |@ 
/ | 7 _BGNENDCFOUCO) sl »BLKCNT»PCL11)4028GGL1),8GGL0}) ELSE04083000 _ ; 9 
ro BGNENCCFOUCO)*® 1* BLACNT»CVC11)50*8GGL1)*BGGL0))3 04064000 19 
" RELEASE CFUU)3 04083000 (@ 
[i een PRA web eO8 LIE GENERATE THEN EDITINGC Le Ni eR RODS oe ee et sic DEV GBOOG. ... a ee ee ere p2 
y ENDS 04067000. 13 
; IF BUOLEANCIeDECLARATION(BGN)2 THEN 040868000 @ 
| ae L2! ss FSi THEN etter Sh naa Age pcb hats MOM OE OO Gs ion fii, Aged aoeethaa teete coeeteee 15 
ne L33 BEGIN BLOCKEeLs Ge Td LE "END ELSE O4Uy0Qda 1 
” IF 13 THEN 04091000 |@ 
 —— BEGIN jatar Rote ttre Rs meet ota eA aN oan OAC OOO). Bat tos > Boe RI 5 58 oe aio 
i IF BOOLEANCBGN) THEN. 04093000 19 
GO TO IF BOOLEANCI*BLOCKC1)) THEN L2 ELSE L53 04094000 2 @ 
wow AGNeto GO TO tls % ThIS 15 FOR PROCEDURES, 04095000. eeernnee Batata ca 
END ELSE 040¥8000 2 
BEGIN % AN “ENU"™ TS ENCWUNTERED, 04097000 4@ 
_IF.BOOLCANCBGN) THEN OU. oe eee .046098000 ee ene eR ee ilies tescet arseteaaee 
“BEGIN % SKIP COMMENT AFTER THE WORD "END". 04099000 i 
IF not ESTO THEN GO Tu L313 04100000 21 @ 
7 PIS © AMET 3 | eas ts a ere ee ce AMAOLOOD | gee Sect Basen it 2 
8 BGNENDCFOUCO)* Os BLK CNTs ST n(O>» 48)*19STRLO*17]» 041u2000 a 
BGGLOJ]) ELSE 04103000 23@ 
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